From b06c6bc831cbb9e9eb82fd3ffd5a2b674cd940d0 Mon Sep 17 00:00:00 2001 From: Greg KH Date: Thu, 12 Jul 2007 21:17:49 -0700 Subject: make git-send-email.perl handle email addresses with no names when Email::Valid is present When using git-send-email.perl on a changeset that has: Cc: in the body of the description, and the Email::Valid perl module is installed on the system, the email address will be deemed "invalid" for some reason (Email::Valid isn't smart enough to handle this?) and complain and not send the address the email. Signed-off-by: Greg Kroah-Hartman Signed-off-by: Junio C Hamano --- git-send-email.perl | 1 + 1 file changed, 1 insertion(+) (limited to 'git-send-email.perl') diff --git a/git-send-email.perl b/git-send-email.perl index 89f7c36ee..a847d5ed5 100755 --- a/git-send-email.perl +++ b/git-send-email.perl @@ -410,6 +410,7 @@ sub extract_valid_address { return $address if ($address =~ /^($local_part_regexp)$/); if ($have_email_valid) { + $address =~ s/^<(.*)>$/$1/; return scalar Email::Valid->address($address); } else { # less robust/correct than the monster regexp in Email::Valid, -- cgit v1.2.1