Use (file PerlIO::Layer 'perlio') rather than $Config{useperlio}

[p5sagit/p5-mst-13.2.git] / ext / PerlIO / PerlIO.t

diff --git a/ext/PerlIO/PerlIO.t b/ext/PerlIO/PerlIO.t
index d3de705..3be0f6a 100644 (file)
--- a/ext/PerlIO/PerlIO.t
+++ b/ext/PerlIO/PerlIO.t
@@ -2,7 +2,7 @@ BEGIN {
        chdir 't' if -d 't';
        @INC = '../lib';
        require Config; import Config;
-       unless ($Config{'useperlio'}) {
+       unless (find PerlIO::Layer 'perlio') {
            print "1..0 # Skip: PerlIO not used\n";
            exit 0;
        }