From: Jesse Vincent <jesse@bestpractical.com>
Date: Tue, 6 Oct 2009 17:33:32 +0000 (-0400)
Subject: Porting/checkAUTHORS.pl now runs clean
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5dcd9c27efd1a82beb36a2791a7929cc9e8cb55d;p=p5sagit%2Fp5-mst-13.2.git

Porting/checkAUTHORS.pl now runs clean
---

diff --git a/AUTHORS b/AUTHORS
index 3172501..a3c97b3 100644
--- a/AUTHORS
+++ b/AUTHORS
@@ -519,7 +519,6 @@ John Stoffel			<jfs@fluent.com>
 John Stumbles			<jstumbles@bluearc.com>
 John Tobey			<jtobey@john-edwin-tobey.org>
 John Wright			<john@johnwright.org>
-
 Johnny Lam			<jlam@jgrind.org>
 Jon Eveland			<jweveland@yahoo.com>
 Jon Gunnip			<jongunnip@hotmail.com>
diff --git a/Porting/checkAUTHORS.pl b/Porting/checkAUTHORS.pl
index 61c6a7f..589a478 100644
--- a/Porting/checkAUTHORS.pl
+++ b/Porting/checkAUTHORS.pl
@@ -59,11 +59,11 @@ $map {$_} = "?" for
     "pxm\100nubz.org",
     "raf\100tradingpost.com.au",
     "smoketst\100hp46t243.cup.hp.com",
-        "oracle\100pcr8.pcr.com". # Probably Ed Eddington ed@pcr.com
         "root\100chronos.fi.muni.cz", # no clue - jrv 20090803
         "gomar\100md.media-web.de", # no clue - jrv 20090803
         "data-drift\100so.uio.no", # no data. originally private message from 199701282014.VAA12645@selters.uio.no
-
+		"arbor\100al37al08.telecel.pt", # reported perlbug ticket 5196 - no actual code contribution. no real name - jrv 20091006
+        "oracle\100pcr8.pcr.com", # Reported perlbug ticket 1015 - no patch - Probably Ed Eddington ed@pcr.com
 ;
 
 #
@@ -126,9 +126,11 @@ if (@authors) {
       } elsif (/^([-A-Za-z0-9 .\'À-ÖØöø-ÿ]+)[\t\n]/) {
     # Name only
     $untraced{$1}++;
-      } else {
+      } elsif (length $_) {
     chomp;
     warn "Can't parse line '$_'";
+      } else {
+	  next
       }
     }
   }
@@ -454,9 +456,9 @@ dougw\100cpan.org                        doug_wilson\100intuit.com
 dwegscheid\100qtm.net                        wegscd\100whirlpool.com
 edwardp\100excitehome.net                    epeschko\100den-mdev1
 +                                        epeschko\100elmer.tci.com
++				         esp5\100pge.com
 egf7\100columbia.edu                    efifer\100sanwaint.com
 eggert\100twinsun.com                    eggert\100sea.sm.unisys.com
-epeschko\100den-mdev1                   esp5\100pge.com
 
 fugazi\100zyx.net                       larrysh\100cpan.org
 +                                        lshatzer\100islanddata.com
@@ -573,6 +575,7 @@ nospam-abuse\100bloodgate.com           tels\100bloodgate.com
 ian.phillipps\100iname.com                ian_phillipps\100yahoo.co.uk
 +                                        ian\100dial.pipex.com
 ignasi.roca\100fujitsu-siemens.com      ignasi.roca\100fujitsu.siemens.es
+ikegami\100adaelis.com				eric\100fmdev10.(none)
 ilmari\100ilmari.org                    ilmari\100vesla.ilmari.org
 illpide\100telecel.pt                        arbor\100al37al08.telecel.pt
 # see http://www.nntp.perl.org/group/perl.perl5.porters/2001/01/msg28925.html
@@ -597,6 +600,7 @@ paul.marquess\100btinternet.com         paul_marquess\100yahoo.co.uk
 +                                       paul.marquess\100openwave.com
 +                                       pmarquess\100bfsec.bt.co.uk
 +                                       pmqs\100cpan.org
++					paul\100paul-desktop.(none)
 Pavel.Zakouril\100mff.cuni.cz                root\100egg.karlov.mff.cuni.cz
 pcg\100goof.com                         schmorp\100schmorp.de
 perl\100cadop.com                       cdp\100hpescdp.fc.hp.com