diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2003-03-14 04:20:51 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2003-03-14 04:20:51 +0000 |
| commit | 0afd3698e368e5016bd4d9f572d1bb76be6998eb (patch) | |
| tree | b19717d76cc7a1d6277e93d80de5d642018f37ab | |
| parent | 44b443f13fc0008dc2fca4fc57565200a6688f44 (diff) | |
| download | perl-0afd3698e368e5016bd4d9f572d1bb76be6998eb.tar.gz | |
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
| -rw-r--r-- | ext/Encode/t/enc_module.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/Encode/t/enc_module.t b/ext/Encode/t/enc_module.t index 21312bbfb3..21f0621e77 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"); } |