https://issues.apache.org/SpamAssassin/show_bug.cgi?id=6968
Bug ID: 6968
Summary: Bleadperl v5.19.2-257-gc30fc27 fixes a bug in perl
which Mail/SpamAssassin/Plugin/FreeMail.pm relies
Product: Spamassassin
Version: 3.3.2
Hardware: PC
OS: Linux
Status: NEW
Severity: normal
Priority: P2
Component: Plugins
Assignee: [email protected]
Reporter: [email protected]
As per subject. The relevant ticket where this fact was discovered is
https://rt.perl.org/rt3//Public/Bug/Display.html?id=119125
The patch to fix the problem for both old and new perls is:
--- lib/Mail/SpamAssassin/Plugin/FreeMail.pm~ 2011-06-07 01:59:17.000000000
+0200
+++ lib/Mail/SpamAssassin/Plugin/FreeMail.pm 2013-08-15 14:46:28.236376372
+0200
@@ -120,10 +120,10 @@
# full email regex
my $email_regex = qr/
(?=.{0,64}\@) # limit userpart to 64 chars
(and speed up searching?)
- (?<![a-z0-9!#$%&'*+\/=?^_`{|}~-]) # start boundary
+ (?<![a-z0-9!#\$%&'*+\/=?^_`{|}~-]) # start boundary
( # capture email
- [a-z0-9!#$%&'*+\/=?^_`{|}~-]+ # no dot in beginning
- (?:\.[a-z0-9!#$%&'*+\/=?^_`{|}~-]+)* # no consecutive dots, no ending dot
+ [a-z0-9!#\$%&'*+\/=?^_`{|}~-]+ # no dot in beginning
+ (?:\.[a-z0-9!#\$%&'*+\/=?^_`{|}~-]+)* # no consecutive dots, no
ending dot
\@
(?:[a-z0-9](?:[a-z0-9-]{0,59}[a-z0-9])?\.){1,4} # max 4x61 char parts
(should be enough?)
${tlds} # ends with valid tld
Note that the change has no effect on current tests.
HTH && Regards,
--
You are receiving this mail because:
You are the assignee for the bug.
