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

as gate on layer tests which fail on -Dusesfio
(ext/XS/Typemap/Typemap.t still fails on -Dusesfio)

p4raw-id: //depot/perlio@16245

1 files changed, 1 insertions, 1 deletions

diff --git a/ext/PerlIO/PerlIO.t b/ext/PerlIO/PerlIO.t
index d3de7051e8..3be0f6af36 100644
--- 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;
 	}