another fix for failing test on windows ("use encoding" puts

STDIN in :raw mode, so chomp() wasn't stripping the CR)

p4raw-id: //depot/perl@18966

diff --git a/ext/Encode/t/enc_module.t b/ext/Encode/t/enc_module.t
index 21312bb..21f0621 100644 (file)
--- a/ext/Encode/t/enc_module.t
+++ b/ext/Encode/t/enc_module.t
@@ -49,7 +49,7 @@ open STDIN, "<", $file0 or die "$file0:$!";
 $obj = Mod_EUCJP->new;
 my $i = 0;
 while(<STDIN>){
-    chomp;
+    s/\r?\n\z//;
     is ($cmp[$i++], $_, "encoding vs. STDIN - $i");
 }