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 (file)
--- 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);