Lines Matching refs:entry
1456 while (my $entry = shift(@address_list)) {
1457 push_email_address($entry, $role);
1472 foreach my $entry (@email_to) {
1474 my ($entry_name, $entry_address) = parse_email($entry->[0]);
1476 && ($role eq "" || !($entry->[1] =~ m/$role/))
1478 if ($entry->[1] eq "") {
1479 $entry->[1] = "$role";
1481 $entry->[1] = "$entry->[1],$role";
1485 if ($email eq $entry->[0]
1486 && ($role eq "" || !($entry->[1] =~ m/$role/))
1488 if ($entry->[1] eq "") {
1489 $entry->[1] = "$role";
1491 $entry->[1] = "$entry->[1],$role";
1809 foreach my $entry (@list) {
1810 $maintained = 1 if ($entry->[1] =~ /^(maintainer|supporter)/i);
1832 foreach my $entry (@list) {
1833 my $email = $entry->[0];
1834 my $role = $entry->[1];
2070 foreach my $entry (@list) {