Hopefully this works also in Win32.

p4raw-id: //depot/perl@18970

diff --git a/ext/Encode/t/CJKT.t b/ext/Encode/t/CJKT.t
index e24d6d8..4ed1e47 100644 (file)
--- a/ext/Encode/t/CJKT.t
+++ b/ext/Encode/t/CJKT.t
@@ -55,8 +55,8 @@ for my $charset (sort keys %Charset){
     my $dst_enc = File::Spec->catfile($dir,"$$.enc");
     my $dst_utf = File::Spec->catfile($dir,"$$.utf");
 
-
     open $src, "<$src_enc" or die "$src_enc : $!";
+    binmode($src, ":bytes"); # needed when :utf8 in default open layer
 
     $txt = join('',<$src>);
     close($src);