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: <stable@kernel.org>
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 <gregkh@suse.de>
Signed-off-by: Junio C Hamano <gitster@pobox.com>

diff --git a/git-send-email.perl b/git-send-email.perl
index 89f7c36ee527e84a663eb6c6ea51ae9614e0ead9..a847d5ed5240ed92240dbba87447f37d21a04d4c 100755 (executable)
--- 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,