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.
[perl5.git] / 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 '$_'";
       }
     }
   }