From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 16 Jan 2003 20:19:36 +0000 (+0000)
Subject: It seems the binmode() is needed with UTF-8 locales enabled.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=caf774a6b47c93401a4581fab332b04b560c89d5;p=p5sagit%2Fp5-mst-13.2.git

It seems the binmode() is needed with UTF-8 locales enabled.

p4raw-id: //depot/perl@18495
---

diff --git a/ext/Encode/t/CJKT.t b/ext/Encode/t/CJKT.t
index 5421f23..72e5d3c 100644
--- a/ext/Encode/t/CJKT.t
+++ b/ext/Encode/t/CJKT.t
@@ -57,7 +57,7 @@ for my $charset (sort keys %Charset){
 
 
     open $src, "<$src_enc" or die "$src_enc : $!";
-    # binmode($src); # not needed! 
+    binmode($src); # needed if UTF-8 locales enabled!
 
     $txt = join('',<$src>);
     close($src);