Fix open.pm to work via XS-implemented method calls rather

[perl5.git] / t / lib / io_scalar.t

diff --git a/t/lib/io_scalar.t b/t/lib/io_scalar.t
index b1ef199..8368e66 100644 (file)
--- a/t/lib/io_scalar.t
+++ b/t/lib/io_scalar.t
@@ -3,7 +3,7 @@
 BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
-    unless (exists $open::layers{'perlio'}) {
+    unless (find PerlIO::Layer 'perlio') {
        print "1..0 # Skip: not perlio\n";
        exit 0;
     }