From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 14 Jan 2006 12:35:58 +0000 (+0000)
Subject: Oops. When the e-mail address came first, or there was no name with it,
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a45ec2f3967ff07319dfd9c32bea80ff78ea678b;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/Porting/checkAUTHORS.pl b/Porting/checkAUTHORS.pl
index 9b9fe41..e3ce324 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) {