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>
git-mirror · Sep 30, 2010 · 35b6ab9 · 35b6ab9
1 parent 49f7385
commit 35b6ab9
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/git-send-email.perl b/git-send-email.perl
@@ -777,8 +777,8 @@ sub expand_one_alias {
 
 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)$/);