I think I know the reason and have it fixed.
Please try to add
if (length($str)+length($hdr) > 997) { # header too long, max 1000 chars
$str =~ s/(.{1,997}[;,])\s+/$1\x0D\x0A\t/g;
}
into the sub print_hdr() above the
print $s "$hdr: $str\x0D\x0A";
line. (should be around line 182)
Let me know if this helps. I will release the fixed version to CPAN afterwards.
Jenda |
