This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: Réf. : Re: PATCH proposal for ext/Safe/safe2.t
[perl5.git] / 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;
        }
 }