Lines Matching refs:entry

1417 	while (my $entry = shift(@address_list)) {
1418 	    push_email_address($entry, $role);
1433     foreach my $entry (@email_to) {
1435 	    my ($entry_name, $entry_address) = parse_email($entry->[0]);
1437 		&& ($role eq "" || !($entry->[1] =~ m/$role/))
1439 		if ($entry->[1] eq "") {
1440 		    $entry->[1] = "$role";
1442 		    $entry->[1] = "$entry->[1],$role";
1446 	    if ($email eq $entry->[0]
1447 		&& ($role eq "" || !($entry->[1] =~ m/$role/))
1449 		if ($entry->[1] eq "") {
1450 		    $entry->[1] = "$role";
1452 		    $entry->[1] = "$entry->[1],$role";
1744     foreach my $entry (@list) {
1745 	$maintained = 1 if ($entry->[1] =~ /^(maintainer|supporter)/i);
1767 	    foreach my $entry (@list) {
1768 		my $email = $entry->[0];
1769 		my $role = $entry->[1];
2004     foreach my $entry (@list) {