aboutsummaryrefslogtreecommitdiff
path: root/git-send-email.perl
diff options
context:
space:
mode:
authorJunio C Hamano <junkio@cox.net>2006-06-06 14:12:46 -0700
committerJunio C Hamano <junkio@cox.net>2006-06-06 14:12:46 -0700
commit09302e177e8dc789c03d9df3620e12e095b4acfb (patch)
treea469211d742a163d5bdaee5fe2a0e20cc3806520 /git-send-email.perl
parentad9c18f5045281ddd109c54451f1b4ebfb0d3567 (diff)
downloadgit-09302e177e8dc789c03d9df3620e12e095b4acfb.tar.gz
git-09302e177e8dc789c03d9df3620e12e095b4acfb.tar.xz
send-email: a bit more careful domain regexp.
This tightens the regexp a bit to make sure there is no double dots. Signed-off-by: Junio C Hamano <junkio@cox.net>
Diffstat (limited to 'git-send-email.perl')
-rwxr-xr-xgit-send-email.perl2
1 files changed, 1 insertions, 1 deletions
diff --git a/git-send-email.perl b/git-send-email.perl
index 700d0c3e1..7b1cca70a 100755
--- a/git-send-email.perl
+++ b/git-send-email.perl
@@ -313,7 +313,7 @@ our ($message_id, $cc, %mail, $subject, $reply_to, $references, $message);
sub extract_valid_address {
my $address = shift;
my $local_part_regexp = '[^<>"\s@]+';
- my $domain_regexp = '[^.<>"\s@]+\.[^<>"\s@]+';
+ my $domain_regexp = '[^.<>"\s@]+(?:\.[^.<>"\s@]+)+';
# check for a local address:
return $address if ($address =~ /^($local_part_regexp)$/);