This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Cope with completely empty lines within the Changes file.
authorNicholas Clark <nick@ccl4.org>
Thu, 29 Sep 2005 10:54:56 +0000 (10:54 +0000)
committerNicholas Clark <nick@ccl4.org>
Thu, 29 Sep 2005 10:54:56 +0000 (10:54 +0000)
Better diagnostics on "malformed" lines.

p4raw-id: //depot/perl@25656

Porting/checkAUTHORS.pl

index fa5f863..a52e090 100644 (file)
@@ -124,12 +124,14 @@ while (<>) {
     $log = $_;
     my $prefix = " " x length $1;
     LOG: while (<>) {
+      next if /^$/;
       if (s/^$prefix//) {
        $log .= $_;
       } elsif (/^\s+Branch:/) {
        last LOG;
       } else {
-       die "Malformed log end with $_";
+       chomp;
+       die "Malformed log end with '$_'";
       }
     }
   }