Cope with completely empty lines within the Changes file.

Better diagnostics on "malformed" lines.

p4raw-id: //depot/perl@25656

diff --git a/Porting/checkAUTHORS.pl b/Porting/checkAUTHORS.pl
index fa5f863..a52e090 100644 (file)
--- a/Porting/checkAUTHORS.pl
+++ b/Porting/checkAUTHORS.pl
@@ -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 '$_'";
       }
     }
   }