This tightens the regexp a bit to make sure there is no double dots.
Signed-off-by: Junio C Hamano <junkio@cox.net>
sub extract_valid_address {
my $address = shift;
my $local_part_regexp = '[^<>"\s@]+';
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)$/);
# check for a local address:
return $address if ($address =~ /^($local_part_regexp)$/);