+
+ #
+ # Email addresses for we do not have names.
+ #
+ $map{$_} = "?"
+ for
+ "bah\100longitude.com",
+ "bbucklan\100jpl-devvax.jpl.nasa.gov",
+ "bilbo\100ua.fm",
+ "bob\100starlabs.net",
+ "cygwin\100cygwin.com",
+ "david\100dhaller.de", "erik\100cs.uni-jena.de", "info\100lingo.kiev.ua", # Lingo Translation agency
+ "jms\100mathras.comcast.net",
+ "premchai21\100yahoo.com",
+ "pxm\100nubz.org",
+ "raf\100tradingpost.com.au",
+ "smoketst\100hp46t243.cup.hp.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
+ ;
+
+ #
+ # Email addresses for people that don't have an email address in AUTHORS
+ # Presumably deliberately?
+ #
+
+ $map{$_} = '!' for
+
+ # Nick Ing-Simmons has passed away (2006-09-25).
+ "nick\100ing-simmons.net",
+ "nik\100tiuk.ti.com",
+ "nick.ing-simmons\100elixent.com",
+ "nick\100ni-s.u-net.com",
+ "nick.ing-simmons\100tiuk.ti.com",
+
+ # Iain Truskett has passed away (2003-12-29).
+ "perl\100dellah.anu.edu.au", "spoon\100dellah.org", "spoon\100cpan.org",
+
+ # Ton Hospel
+ "me-02\100ton.iguana.be", "perl-5.8.0\100ton.iguana.be", "perl5-porters\100ton.iguana.be",
+
+ # Beau Cox
+ "beau\100beaucox.com",
+
+ # Randy W. Sims
+ "ml-perl\100thepierianspring.org",
+
+ # perl internal addresses
+ "perl5-porters\100africa.nicoh.com",
+ "perlbug\100perl.org",,
+ "perl5-porters.nicoh.com",
+ "perlbug-followup\100perl.org",
+ "perlbug-comment\100perl.org",
+ "bug-module-corelist\100rt.cpan.org",
+ "bug-storable\100rt.cpan.org",
+ "bugs-perl5\100bugs6.perl.org",
+ "unknown",
+ "unknown\100unknown",
+ "unknown\100longtimeago",
+ "unknown\100perl.org",
+ "",
+ "(none)",
+ ;
+
+ return \%map;