the h_utf8 subroutine still has two debug print statements to STDERR

that can harm a server application

http://rt.cpan.org/NoAuth/Bug.html?id=7368

--- MIME-tools-5.417/lib/MIME/WordDecoder.pm-	2004-09-07 15:13:54 +0000

+++ MIME-tools-5.417/lib/MIME/WordDecoder.pm	2005-05-12 14:50:05 +0000

@@ -399,7 +399,6 @@ sub h_utf8 {  

     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 @@ sub h_utf8 {  

         else                           { $tgt .= "\x00" }

     }

-    print STDERR "UTF8 out: <$tgt>\n"; 

     $tgt;

 }

@@ -426,7 +424,6 @@ sub h_utf16 {  

     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 @@ sub h_utf16 {  

         else                           { $tgt .= "\x00" }

     }

-    print STDERR "UTF16 out: <$tgt>\n"; 

     $tgt;

 }