diff options
| author | Nicholas Clark <nick@ccl4.org> | 2005-09-29 10:54:56 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-09-29 10:54:56 +0000 |
| commit | 84fd1186674f7e16cbe42e2947846d025465181d (patch) | |
| tree | 592e9569651fe5e0fd0ce147f8b75f4f13909a7f /Porting | |
| parent | 4e96f8e974fb0a5a24dcbed3bfbb9ed3f39c86e8 (diff) | |
| download | perl-84fd1186674f7e16cbe42e2947846d025465181d.tar.gz | |
Cope with completely empty lines within the Changes file.
Better diagnostics on "malformed" lines.
p4raw-id: //depot/perl@25656
Diffstat (limited to 'Porting')
| -rw-r--r-- | Porting/checkAUTHORS.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Porting/checkAUTHORS.pl b/Porting/checkAUTHORS.pl index fa5f863ccf..a52e090203 100644 --- 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 '$_'"; } } } |