Skip Menu |
 

This queue is for tickets about the MIME-tools CPAN distribution.

Report information
The Basics
Id: 7368
Status: resolved
Priority: 0/
Queue: MIME-tools

People
Owner: Nobody in particular
Requestors: richmond [...] proofpoint.com
Cc:
AdminCc:

Bug Information
Severity: Important
Broken in: 5.411
Fixed in: 5.418

Attachments


Subject: STDERR print statements WordDecoder
Download (untitled) / with headers
text/plain 103b
the h_utf8 subroutine still has two debug print statements to STDERR that can harm a server application
From: jgmyers [...] proofpoint.com
Proposed fix.
Download mime-tools417.diff
text/x-diff 975b
diff -ru MIME-tools-5.417-orig/lib/MIME/WordDecoder.pm MIME-tools-5.417/lib/MIME/WordDecoder.pm --- MIME-tools-5.417-orig/lib/MIME/WordDecoder.pm 2004-09-07 08:13:54.000000000 -0700 +++ MIME-tools-5.417/lib/MIME/WordDecoder.pm 2005-03-04 12:24:35.000000000 -0800 @@ -399,7 +399,6 @@ local $_ = $_[0]; # my $unknown = $_[2]->{MWDI_Unknown}; my $latin1 = ($_[2]->{MWDI_Num} == 1); - print STDERR "UTF8 in: <$_>\n"; my $tgt = ''; while (m{\G( @@ -415,7 +414,6 @@ else { $tgt .= "\x00" } } - print STDERR "UTF8 out: <$tgt>\n"; $tgt; } @@ -426,7 +424,6 @@ local $_ = $_[0]; # my $unknown = $_[2]->{MWDI_Unknown}; my $latin1 = ($_[2]->{MWDI_Num} == 1); - print STDERR "UTF16 in: <$_>\n"; my $tgt = ''; while (m{\G( @@ -441,7 +438,6 @@ else { $tgt .= "\x00" } } - print STDERR "UTF16 out: <$tgt>\n"; $tgt; }
Was fixed in 5.418


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.