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>
Ævar Arnfjörð Bjarmason committed
Sep 30, 2010 at 19:03 UTC
35b6ab955d2288e1c2671bde67298ed3abe32781
1 file changed
+2
-2
git-send-email.perl
+2
-2
@@ -777,8 +777,8 @@ our ($message_id, %mail, $subject, $reply_to, $references, $message,
777
778
sub extract_valid_address {
779
my $address = shift;
780
- my $local_part_regexp = '[^<>"\s@]+';
781
- my $domain_regexp = '[^.<>"\s@]+(?:\.[^.<>"\s@]+)+';
780
+ my $local_part_regexp = qr/[^<>"\s@]+/;
781
+ my $domain_regexp = qr/[^.<>"\s@]+(?:\.[^.<>"\s@]+)+/;
782
783
# check for a local address:
784
return $address if ($address =~ /^($local_part_regexp)$/);