I have a name
authorJerry D. Hedden <jdhedden@cpan.org>
Fri, 15 Jun 2007 09:54:57 +0000 (05:54 -0400)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 15 Jun 2007 13:59:55 +0000 (13:59 +0000)
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510706150654t24817135t67803e81f444305b@mail.gmail.com>

p4raw-id: //depot/perl@31390

Porting/checkAUTHORS.pl

index 9e3f264..6fa47bb 100644 (file)
@@ -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",