Lines Matching refs:entry

1444 	while (my $entry = shift(@address_list)) {
1445 	    push_email_address($entry, $role);
1460     foreach my $entry (@email_to) {
1462 	    my ($entry_name, $entry_address) = parse_email($entry->[0]);
1464 		&& ($role eq "" || !($entry->[1] =~ m/$role/))
1466 		if ($entry->[1] eq "") {
1467 		    $entry->[1] = "$role";
1469 		    $entry->[1] = "$entry->[1],$role";
1473 	    if ($email eq $entry->[0]
1474 		&& ($role eq "" || !($entry->[1] =~ m/$role/))
1476 		if ($entry->[1] eq "") {
1477 		    $entry->[1] = "$role";
1479 		    $entry->[1] = "$entry->[1],$role";
1797     foreach my $entry (@list) {
1798 	$maintained = 1 if ($entry->[1] =~ /^(maintainer|supporter)/i);
1820 	    foreach my $entry (@list) {
1821 		my $email = $entry->[0];
1822 		my $role = $entry->[1];
2057     foreach my $entry (@list) {