Lines Matching refs:email
116 my ($name, $email) = $line =~ m/^\s+(.+)(?= <) <([^>]+)/;
119 my $semail = email_slug($email);
128 $display_email{$semail} = $email;
163 update_display_email($email);
195 while (my $email = shift @check_emails) {
196 next if $emails{$email}++;
198 sort keys %{delete $seen_names{$email}};
220 my $email = best_email(@$emails);
223 $authors_email{$name} = $email;
224 $authors_name{$email} = $name;
231 next if $alias eq $email;
268 my ($email) = @_;
272 $email =~ s/^(.*\s+)|(\s+.*)$//g;
276 $email =~ s/^[^\+]*\+//g if $email =~ m/\.noreply\.github\.com$/;
278 return lc $email;
307 my ($email) = @_;
308 my $semail = email_slug($email);
314 $email =~ s/^[^\+]*\+//g if $email =~ m/\.noreply\.github\.com$/;
318 ($email =~ tr/a-z //) < ($cemail =~ tr/a-z //)) {
319 $display_email{$semail} = $email;