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

History Show all quoted text
  Mon Aug 16 13:16:22 2004 Guest - Ticket created
Subject: STDERR print statements WordDecoder
the h_utf8 subroutine still has two debug print statements to STDERR that can harm a server application
  Fri Mar 04 15:32:56 2005 Guest - Correspondence added
From: jgmyers [...] proofpoint.com
Proposed fix.
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; }
  Fri Sep 29 09:01:42 2006 dmo+pause [...] dmo.ca - Fixed in 5.418 added
  Thu Jun 21 11:21:14 2007 dmo+pause [...] dmo.ca - Correspondence added
Was fixed in 5.418
  Thu Jun 21 11:21:15 2007 The RT System itself - Status changed from 'new' to 'open'
  Thu Jun 21 11:21:17 2007 dmo+pause [...] dmo.ca - Status changed from 'open' to 'resolved'