summaryrefslogtreecommitdiff
path: root/git-send-email.perl
diff options
context:
space:
mode:
authorÆvar Arnfjörð Bjarmason <avarab@gmail.com>2010-09-30 19:03:31 (GMT)
committerJunio C Hamano <gitster@pobox.com>2010-09-30 20:06:47 (GMT)
commit35b6ab955d2288e1c2671bde67298ed3abe32781 (patch)
tree72c8599046c206db3056d1cb7ee9185f52937592 /git-send-email.perl
parent49f73852c80ee681c179ee2eb76b1a792d7b1b22 (diff)
downloadgit-35b6ab955d2288e1c2671bde67298ed3abe32781.zip
git-35b6ab955d2288e1c2671bde67298ed3abe32781.tar.gz
git-35b6ab955d2288e1c2671bde67298ed3abe32781.tar.bz2
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>
Diffstat (limited to 'git-send-email.perl')
-rwxr-xr-xgit-send-email.perl4
1 files changed, 2 insertions, 2 deletions
diff --git a/git-send-email.perl b/git-send-email.perl
index 1890409..db17aae 100755
--- a/git-send-email.perl
+++ b/git-send-email.perl
@@ -777,8 +777,8 @@ our ($message_id, %mail, $subject, $reply_to, $references, $message,
sub extract_valid_address {
my $address = shift;
- my $local_part_regexp = '[^<>"\s@]+';
- my $domain_regexp = '[^.<>"\s@]+(?:\.[^.<>"\s@]+)+';
+ my $local_part_regexp = qr/[^<>"\s@]+/;
+ my $domain_regexp = qr/[^.<>"\s@]+(?:\.[^.<>"\s@]+)+/;
# check for a local address:
return $address if ($address =~ /^($local_part_regexp)$/);