Do not test PerlIO if PerlIO not used.
Jarkko Hietaniemi [Sat, 23 Jun 2001 21:29:10 +0000 (21:29 +0000)]
p4raw-id: //depot/perl@10872

ext/PerlIO/PerlIO.t

index d71ab8e..e28a409 100644 (file)
@@ -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;
        }
 }