diff options
| author | Jerry D. Hedden <jdhedden@cpan.org> | 2007-06-15 05:54:57 -0400 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-06-15 13:59:55 +0000 |
| commit | 5e71429c61042c39fcfb4ddc34df477a9d592d08 (patch) | |
| tree | 29feb718610a019889d1f995401983e1edeeed34 /Porting | |
| parent | ae18ef2b7a279efbe1d88ca156fa4596b276dabe (diff) | |
| download | perl-5e71429c61042c39fcfb4ddc34df477a9d592d08.tar.gz | |
I have a name
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510706150654t24817135t67803e81f444305b@mail.gmail.com>
p4raw-id: //depot/perl@31390
Diffstat (limited to 'Porting')
| -rw-r--r-- | Porting/checkAUTHORS.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Porting/checkAUTHORS.pl b/Porting/checkAUTHORS.pl index 9e3f26437a..6fa47bb6a7 100644 --- a/Porting/checkAUTHORS.pl +++ b/Porting/checkAUTHORS.pl @@ -116,6 +116,7 @@ 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", ); @@ -161,7 +162,7 @@ $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 $map{$_} = "?" foreach ("grommel\100sears.com", "pxm\100nubz.org", - "padre\100elte.hu", "jdhedden\100" . "1979.usna.com", + "padre\100elte.hu", "nothingmuch\100woobling.org", "bob\100starlabs.net", "bbucklan\100jpl-devvax.jpl.nasa.gov", "bilbo\100ua.fm", "mats\100sm5sxl.net", |