Lines Matching refs:entry

1101 	while (my $entry = shift(@address_list)) {
1102 	    push_email_address($entry, $role);
1117     foreach my $entry (@email_to) {
1119 	    my ($entry_name, $entry_address) = parse_email($entry->[0]);
1121 		&& ($role eq "" || !($entry->[1] =~ m/$role/))
1123 		if ($entry->[1] eq "") {
1124 		    $entry->[1] = "$role";
1126 		    $entry->[1] = "$entry->[1],$role";
1130 	    if ($email eq $entry->[0]
1131 		&& ($role eq "" || !($entry->[1] =~ m/$role/))
1133 		if ($entry->[1] eq "") {
1134 		    $entry->[1] = "$role";
1136 		    $entry->[1] = "$entry->[1],$role";
1417     foreach my $entry (@list) {
1418 	$maintained = 1 if ($entry->[1] =~ /^(maintainer|supporter)/i);
1440 	    foreach my $entry (@list) {
1441 		my $email = $entry->[0];
1442 		my $role = $entry->[1];
1677     foreach my $entry (@list) {