[libemail-address-perl] 02/06: once we have a phrase, do not backtrack through it
Salvatore Bonaccorso
carnil at debian.org
Tue Sep 29 16:46:56 UTC 2015
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 ac5fedef217e33b50ff533d987fb95957c8caf5f
Author: Ricardo Signes <rjbs at cpan.org>
Date: Sat Jun 14 00:10:39 2014 -0400
once we have a phrase, do not backtrack through it
---
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 e5299aa..191259e 100644
--- a/lib/Email/Address.pm
+++ b/lib/Email/Address.pm
@@ -136,7 +136,7 @@ following comment.
$addr_spec = qr/$local_part\@$domain/;
$angle_addr = qr/$cfws*<$addr_spec>$cfws*/;
-$name_addr = qr/$display_name?$angle_addr/;
+$name_addr = qr/(?>$display_name?)$angle_addr/;
$mailbox = qr/(?:$name_addr|$addr_spec)$comment*/;
sub _PHRASE () { 0 }
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libemail-address-perl.git
More information about the Pkg-perl-cvs-commits
mailing list