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 =~ /<([^>[EMAIL PROTECTED]@unknown)>/) {
- tag "debian-changelog-file-contains-debmake-default-email-address",
$1;
- } elsif ($_->Maintainer =~ /<([^>[EMAIL PROTECTED]@[^>.]*)>/) {
- tag "debian-changelog-file-contains-invalid-email-address", $1;
+ if ($_->Maintainer) {
+ if ($_->Maintainer =~ /<([^>[EMAIL PROTECTED]@unknown)>/) {
+ tag
"debian-changelog-file-contains-debmake-default-email-address", $1;
+ } elsif ($_->Maintainer =~ /<([^>[EMAIL PROTECTED]@[^>.]*)>/) {
+ tag "debian-changelog-file-contains-invalid-email-address", $1;
+ }
}
}
--
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
