From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 23 Jun 2001 21:29:10 +0000 (+0000)
Subject: Do not test PerlIO if PerlIO not used.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=dc87d25e60a6badc27049437f269957fa4953095;p=p5sagit%2Fp5-mst-13.2.git

Do not test PerlIO if PerlIO not used.

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

diff --git a/ext/PerlIO/PerlIO.t b/ext/PerlIO/PerlIO.t
index d71ab8e..e28a409 100644
--- a/ext/PerlIO/PerlIO.t
+++ b/ext/PerlIO/PerlIO.t
@@ -2,8 +2,8 @@ BEGIN {
 	chdir 't' if -d 't';
 	@INC = '../lib';
 	require Config; import Config;
-	if ($Config{'extensions'} !~ /\bPerlIO\b/) {
-	    print "1..0 # Skip: PerlIO was not built\n";
+	unless ($Config{'useperlio'}) {
+	    print "1..0 # Skip: PerlIO not used\n";
 	    exit 0;
 	}
 }