[libemail-address-perl] 04/06: only the final angle-addr in the parse contains addr

[Salvatore Bonaccorso]

This is an automated email from the git hooks/post-receive script.

carnil pushed a commit to branch squeeze
in repository libemail-address-perl.

commit 34d3bf978db891d18e17b9e0cdd01dbd415f0980
Author: Ricardo Signes <rjbs at cpan.org>
Date:   Sat Jun 14 00:17:19 2014 -0400

    only the final angle-addr in the parse contains addr
    
    this is such a bodge :(
---
 lib/Email/Address.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Email/Address.pm b/lib/Email/Address.pm
index 191259e..38b2631 100644
--- a/lib/Email/Address.pm
+++ b/lib/Email/Address.pm
@@ -213,7 +213,7 @@ sub parse {
       s/$comment//go if @comments;
 
       my ($user, $host, $com);
-      ($user, $host) = ($1, $2) if s/<($local_part)\@($domain)>//o;
+      ($user, $host) = ($1, $2) if s/<($local_part)\@($domain)>\s*\z//o;
       if (! defined($user) || ! defined($host)) {
           s/($local_part)\@($domain)//o;
           ($user, $host) = ($1, $2);

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libemail-address-perl.git