Lines Matching refs:entry

1424 	while (my $entry = shift(@address_list)) {
1425 	    push_email_address($entry, $role);
1440     foreach my $entry (@email_to) {
1442 	    my ($entry_name, $entry_address) = parse_email($entry->[0]);
1444 		&& ($role eq "" || !($entry->[1] =~ m/$role/))
1446 		if ($entry->[1] eq "") {
1447 		    $entry->[1] = "$role";
1449 		    $entry->[1] = "$entry->[1],$role";
1453 	    if ($email eq $entry->[0]
1454 		&& ($role eq "" || !($entry->[1] =~ m/$role/))
1456 		if ($entry->[1] eq "") {
1457 		    $entry->[1] = "$role";
1459 		    $entry->[1] = "$entry->[1],$role";
1777     foreach my $entry (@list) {
1778 	$maintained = 1 if ($entry->[1] =~ /^(maintainer|supporter)/i);
1800 	    foreach my $entry (@list) {
1801 		my $email = $entry->[0];
1802 		my $role = $entry->[1];
2037     foreach my $entry (@list) {