From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 16 Mar 2003 08:02:31 +0000 (+0000)
Subject: Make the :bytes conditional on PerlIO.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=17ba578bf41cdb4933f7c577f6b4ba5403154874;p=p5sagit%2Fp5-mst-13.2.git

Make the :bytes conditional on PerlIO.

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

diff --git a/ext/Encode/t/CJKT.t b/ext/Encode/t/CJKT.t
index b8c2222..884a90f 100644
--- a/ext/Encode/t/CJKT.t
+++ b/ext/Encode/t/CJKT.t
@@ -12,10 +12,11 @@ BEGIN {
 	print "1..0 # Skip: EBCDIC\n";
 	exit 0;
     }
-    unless (PerlIO::Layer->find('perlio')){
-	print "1..0 # Skip: PerlIO required\n";
-	exit 0;
-    }
+# should work w/o PerlIO now!
+#    unless (PerlIO::Layer->find('perlio')){
+#	print "1..0 # Skip: PerlIO required\n";
+#	exit 0;
+#   }
     $| = 1;
 }
 use strict;
@@ -55,7 +56,8 @@ for my $charset (sort keys %Charset){
     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
+    binmode($src, ":bytes") # needed if :utf8 in default open layer
+	if PerlIO::Layer->find('perlio');
 
     $txt = join('',<$src>);
     close($src);