This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Oops. When the e-mail address came first, or there was no name with it,
authorNicholas Clark <nick@ccl4.org>
Sat, 14 Jan 2006 12:35:58 +0000 (12:35 +0000)
committerNicholas Clark <nick@ccl4.org>
Sat, 14 Jan 2006 12:35:58 +0000 (12:35 +0000)
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

Porting/checkAUTHORS.pl

index 9b9fe41..e3ce324 100644 (file)
@@ -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) {