Add a test for [perl #17753].

[p5sagit/p5-mst-13.2.git] / t / io / layers.t

diff --git a/t/io/layers.t b/t/io/layers.t
index 15359c1..6eb0656 100644 (file)
--- a/t/io/layers.t
+++ b/t/io/layers.t
@@ -8,6 +8,10 @@ BEGIN {
        print "1..0 # Skip: not perlio\n";
        exit 0;
     }
+    if (exists $ENV{PERLIO} && $ENV{PERLIO} ne 'stdio') {
+       print "1..0 # PERLIO non-stdio\n";
+       exit(0);
+    }
 }
 
 plan tests => 43;