diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-01-14 12:35:58 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-01-14 12:35:58 +0000 |
| commit | a45ec2f3967ff07319dfd9c32bea80ff78ea678b (patch) | |
| tree | eb7ea6add285333b424270c40b8bd7d663c8e618 /Porting | |
| parent | 6fbb3cd3381e25efffb6735057d4aac2b1c3656e (diff) | |
| download | perl-a45ec2f3967ff07319dfd9c32bea80ff78ea678b.tar.gz | |
Oops. When the e-mail address came first, or there was no name with it,
checkAUTHORS.pl wasn't recognising it, which caused the change to be
attributed to the committer rather than the author. This now reveals
several people "missing" from the AUTHORS file.
p4raw-id: //depot/perl@26855
Diffstat (limited to 'Porting')
| -rw-r--r-- | Porting/checkAUTHORS.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Porting/checkAUTHORS.pl b/Porting/checkAUTHORS.pl index 9b9fe413f4..e3ce32441a 100644 --- a/Porting/checkAUTHORS.pl +++ b/Porting/checkAUTHORS.pl @@ -245,7 +245,7 @@ sub display_ordered { sub process { my ($committer, $patch, $log) = @_; return unless $committer; - my @authors = $log =~ /From:.+\s+([^\@ \t\n]+\@[^\@ \t\n]+)/gm; + my @authors = $log =~ /From:\s+.*?([^"\@ \t\n]+\@[^"\@ \t\n]+)/gm; if (@authors) { foreach (@authors) { |