lintian: r460 - trunk/checks

[djpig@debian.org]

Author: djpig
Date: 2005-08-03 15:03:54 +0200 (Wed, 03 Aug 2005)
New Revision: 460

Modified:
   trunk/checks/changelog-file
Log:
Avoid some Perl warnings when encountering broken changelog entries
(will be properly fixed in Parse::DebianChangelog in the long term)


Modified: trunk/checks/changelog-file
===================================================================
--- trunk/checks/changelog-file	2005-07-23 23:22:25 UTC (rev 459)
+++ trunk/checks/changelog-file	2005-08-03 13:03:54 UTC (rev 460)
@@ -229,10 +229,12 @@
 my @entries = $changes->data;
 if (@entries) {
     foreach (@entries) {
-	if ($_->Maintainer =~ /<([^>\@]+\@unknown)>/) {
-	    tag "debian-changelog-file-contains-debmake-default-email-address", $1;
-	} elsif ($_->Maintainer =~ /<([^>\@]+\@[^>.]*)>/) {
-	    tag "debian-changelog-file-contains-invalid-email-address", $1;
+	if ($_->Maintainer) {
+	    if ($_->Maintainer =~ /<([^>\@]+\@unknown)>/) {
+		tag "debian-changelog-file-contains-debmake-default-email-address", $1;
+	    } elsif ($_->Maintainer =~ /<([^>\@]+\@[^>.]*)>/) {
+		tag "debian-changelog-file-contains-invalid-email-address", $1;
+	    }
 	}
     }