Skip Menu |
 

This queue is for tickets about the MailTools CPAN distribution.

Report information
The Basics
Id: 4670
Status: resolved
Priority: 0/
Queue: MailTools

People
Owner: Nobody in particular
Requestors: strobert-cpan [...] truelink.com
Cc:
AdminCc:

Bug Information
Severity: Important
Broken in: 1.58
Fixed in: (no value)



Subject: Mail::Header doesn't fold lines correctly
If I have header lines like this: To: "Steve Roberts" <strobert-foo@TRUELINK.com>, "Steve Roberts (internet)" <strobert-bar@mail.truelink.com>, "Test" <strobert-test@mail.truelink.com>, "bugtest" <strobert-bugtest@mail.truelink.com> 1.58 code turns it into: To: "Steve Roberts" <strobert-foo@TRUELINK.com>, "Steve Roberts (internet)" <strobert-bar@mail.truelink.com>, "Test" <strobert-test@mail.truelink.com>, "bugtest" <strobert-bugtest@mail.truelink.com> the attached patch "fixes" this. while($_[0] =~ s/^\s*( [^"]{$min,$max}?[\,\;] |[^"]{1,$max}\s - |[^\s"]*(?:"[^"]*"[^\s"]*)+\s + |[^\s"]*(?:"[^"]*"\s?[^\s"]*)+\s |[^\s"]+\s ) //x); basically the first regex trying to split on ,; doesn't have a hit (since we would grab < min (59 in this case -- maxlength is the default: 79)). I am not sure of how good/correct the fix is, but it is working for me.
Download x4
application/octet-stream 290b

Message body not shown because it is not plain text.



This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.