send-email: extract_valid_address use qr// regexes
Signed-off-by: Ævar Arnfjörð Bjarmason <avarab@gmail.com> Signed-off-by: Junio C Hamano <gitster@pobox.com>
This commit is contained in:

committed by
Junio C Hamano

parent
49f73852c8
commit
35b6ab955d
@ -777,8 +777,8 @@ our ($message_id, %mail, $subject, $reply_to, $references, $message,
|
|||||||
|
|
||||||
sub extract_valid_address {
|
sub extract_valid_address {
|
||||||
my $address = shift;
|
my $address = shift;
|
||||||
my $local_part_regexp = '[^<>"\s@]+';
|
my $local_part_regexp = qr/[^<>"\s@]+/;
|
||||||
my $domain_regexp = '[^.<>"\s@]+(?:\.[^.<>"\s@]+)+';
|
my $domain_regexp = qr/[^.<>"\s@]+(?:\.[^.<>"\s@]+)+/;
|
||||||
|
|
||||||
# check for a local address:
|
# check for a local address:
|
||||||
return $address if ($address =~ /^($local_part_regexp)$/);
|
return $address if ($address =~ /^($local_part_regexp)$/);
|
||||||
|
Reference in New Issue
Block a user