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 <r...@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
_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
