scripts/get_maintainer.pl: don't deduplicate unnamed addresses ie: mailing lists

Fix a defect with the first mailing list address being used for each
subsequent mailing list.

Updated to 0.26-beta6.

Signed-off-by: Joe Perches <joe@perches.com>
Cc: Florian Mickler <florian@mickler.org>
Signed-off-by: Andrew Morton <akpm@linux-foundation.org>
Signed-off-by: Linus Torvalds <torvalds@linux-foundation.org>
This commit is contained in:
Joe Perches 2010-10-26 14:22:58 -07:00 committed by Linus Torvalds
parent b9e2331dd1
commit fae9920676

View File

@ -13,7 +13,7 @@
use strict;
my $P = $0;
my $V = '0.26-beta5';
my $V = '0.26-beta6';
use Getopt::Long qw(:config no_auto_abbrev);
@ -1036,7 +1036,7 @@ sub push_email_address {
push(@email_to, [format_email($name, $address, $email_usename), $role]);
} elsif (!email_inuse($name, $address)) {
push(@email_to, [format_email($name, $address, $email_usename), $role]);
$email_hash_name{lc($name)}++;
$email_hash_name{lc($name)}++ if ($name ne "");
$email_hash_address{lc($address)}++;
}
@ -1659,7 +1659,7 @@ sub deduplicate_email {
($name, $address) = parse_email($email);
if ($deduplicate_name_hash{lc($name)}) {
if ($name ne "" && $deduplicate_name_hash{lc($name)}) {
$name = $deduplicate_name_hash{lc($name)}->[0];
$address = $deduplicate_name_hash{lc($name)}->[1];
$matched = 1;