From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 18 Apr 2002 13:05:46 +0000 (+0000)
Subject: The tests need perlio.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b98900218d587cba6db693caeb0b5f8e839be373;p=p5sagit%2Fp5-mst-13.2.git

The tests need perlio.

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

diff --git a/ext/Encode/t/JP.t b/ext/Encode/t/JP.t
index 89238b5..f904986 100644
--- a/ext/Encode/t/JP.t
+++ b/ext/Encode/t/JP.t
@@ -8,6 +8,10 @@ BEGIN {
       print "1..0 # Skip: Encode was not built\n";
       exit 0;
     }
+    unless (find PerlIO::Layer 'perlio') {
+	print "1..0 # Skip: PerlIO was not built\n";
+	exit 0;
+    }
     if (ord("A") == 193) {
 	print "1..0 # Skip: EBCDIC\n";
 	exit 0;
diff --git a/ext/Encode/t/encoding.t b/ext/Encode/t/encoding.t
index a51bb66..1e69ad9 100644
--- a/ext/Encode/t/encoding.t
+++ b/ext/Encode/t/encoding.t
@@ -4,6 +4,10 @@ BEGIN {
       print "1..0 # Skip: Encode was not built\n";
       exit 0;
     }
+    unless (find PerlIO::Layer 'perlio') {
+	print "1..0 # Skip: PerlIO was not built\n";
+	exit 0;
+    }
     if (ord("A") == 193) {
 	print "1..0 # encoding pragma does not support EBCDIC platforms\n";
 	exit(0);