If no PerlIO, no PerlIO::via.

p4raw-id: //depot/perl@17460

diff --git a/lib/PerlIO/via/t/QuotedPrint.t b/lib/PerlIO/via/t/QuotedPrint.t
index c1367c0..9b2587c 100644 (file)
--- a/lib/PerlIO/via/t/QuotedPrint.t
+++ b/lib/PerlIO/via/t/QuotedPrint.t
@@ -5,6 +5,10 @@ BEGIN {
        chdir 't' if -d 't';
        @INC = '../lib';
     }
+    unless (find PerlIO::Layer 'perlio') {
+        print "1..0 # Skip: PerlIO not used\n";
+       exit 0;
+    }
 }
 
 use Test::More tests => 11;