diff options
| author | Dave Rolsky <autarch@urth.org> | 2012-12-17 12:20:47 -0600 |
|---|---|---|
| committer | Dave Rolsky <autarch@urth.org> | 2012-12-17 12:20:47 -0600 |
| commit | ac664a5e217c1083927e8c758d1607680db18de3 (patch) | |
| tree | 338b248163cac209d7b4447400dcebb91a0e1940 | |
| parent | 216cf7fc10c92aa0e88f6a7c26b1c823bbb7c277 (diff) | |
| download | perl-ac664a5e217c1083927e8c758d1607680db18de3.tar.gz | |
Look up RT authors in the DATA section aliases as well as AUTHORS
This patch is a little gross but if fixes a bug where an author wasn't found
at all. The author in question was in the git log as "bulk88 (via RT)
<perlbug-followup@perl.org>". Note the lack of a name before the "(via RT)"
part.
This whole thing is a bit of a mess. I think this whole script could be
re-organized in a simpler way, perhaps.
| -rwxr-xr-x | Porting/checkAUTHORS.pl | 17 |
1 files changed, 12 insertions, 5 deletions
diff --git a/Porting/checkAUTHORS.pl b/Porting/checkAUTHORS.pl index a5462874ce..ec726b9992 100755 --- a/Porting/checkAUTHORS.pl +++ b/Porting/checkAUTHORS.pl @@ -337,11 +337,17 @@ sub _raw_address { # # Try to find the author # - while (my ($email, $author_name) = each %authors) { - if ($name eq $author_name) { - $addr = $email; - $real_name = $name; - last; + if (exists $map->{$name}) { + $addr = $map->{$name}; + $real_name = $authors{$addr}; + } + else { + while (my ($email, $author_name) = each %authors) { + if ($name eq $author_name) { + $addr = $email; + $real_name = $name; + last; + } } } } @@ -555,6 +561,7 @@ blgl\100stacken.kth.se blgl\100hagernas.com + 2bfjdsla52kztwejndzdstsxl9athp\100gmail.com brian.d.foy\100gmail.com bdfoy\100cpan.org BQW10602\100nifty.com sadahiro\100cpan.org +bulk88\100hotmail.com bulk88 chromatic\100wgz.org chromatic\100rmci.net ckuskie\100cadence.com colink\100perldreamer.com |