From: Gurusamy Sarathy <gsar@cpan.org>
Date: Fri, 14 Mar 2003 04:20:51 +0000 (+0000)
Subject: another fix for failing test on windows ("use encoding" puts
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0afd3698e368e5016bd4d9f572d1bb76be6998eb;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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");
 }