From: Jerry D. Hedden Date: Fri, 15 Jun 2007 10:54:28 +0000 (-0400) Subject: checkAUTHORS.pl once more X-Git-Tag: accepted/trunk/20130322.191538~15084 X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=7154214c54ca2b275cf107cce1f2b9b0d84edc0e;p=platform%2Fupstream%2Fperl.git checkAUTHORS.pl once more From: "Jerry D. Hedden" Message-ID: <1ff86f510706150754g59703eabs7072fb750e160a31@mail.gmail.com> p4raw-id: //depot/perl@31392 --- diff --git a/Porting/checkAUTHORS.pl b/Porting/checkAUTHORS.pl index dc503b2..62b8a43 100644 --- a/Porting/checkAUTHORS.pl +++ b/Porting/checkAUTHORS.pl @@ -116,7 +116,6 @@ my %map = reverse ( => "paul_greenvos\100vos.stratus.com", "alian\100cpan.org" => "alian\100alianwebserver.com", "david.dyck\100fluke.com" => "dcd\100tc.fluke.com", - "jdhedden\100" . "1979.usna.com" => "jdhedden\100cpan.org", # Maybe we should special case this to get real names out? "perlbug\100perl.org" => "perlbug-followup\100perl.org", ); @@ -160,7 +159,7 @@ $map{"richard.foley\100ubs.com"} = "richard.foley\100ubsw.com"; $map{"jerry\100hedden.us"} = $map{"jdhedden\100" . "1979.usna.com"} = $map{"jdhedden\100gmail.com"} = $map{"jdhedden\100yahoo.com"} = "jdhedden\100cpan.org"; -# I assume that Ton Hopsel's lack of e-mail address in AUTHORS is deliberate +# I assume that Ton Hospel's lack of e-mail address in AUTHORS is deliberate $map{"me-02\100ton.iguana.be"} = $map{"perl-5.8.0\100ton.iguana.be"} = $map{"perl5-porters\100ton.iguana.be"} = "!"; # No real name for these address