Lines Matching refs:entry
1425 while (my $entry = shift(@address_list)) {
1426 push_email_address($entry, $role);
1441 foreach my $entry (@email_to) {
1443 my ($entry_name, $entry_address) = parse_email($entry->[0]);
1445 && ($role eq "" || !($entry->[1] =~ m/$role/))
1447 if ($entry->[1] eq "") {
1448 $entry->[1] = "$role";
1450 $entry->[1] = "$entry->[1],$role";
1454 if ($email eq $entry->[0]
1455 && ($role eq "" || !($entry->[1] =~ m/$role/))
1457 if ($entry->[1] eq "") {
1458 $entry->[1] = "$role";
1460 $entry->[1] = "$entry->[1],$role";
1778 foreach my $entry (@list) {
1779 $maintained = 1 if ($entry->[1] =~ /^(maintainer|supporter)/i);
1801 foreach my $entry (@list) {
1802 my $email = $entry->[0];
1803 my $role = $entry->[1];
2038 foreach my $entry (@list) {