Also needs skipping if PerlIO::via not built

p4raw-id: //depot/perl@22957

diff --git a/lib/PerlIO/via/t/QuotedPrint.t b/lib/PerlIO/via/t/QuotedPrint.t
index b379f66..4774af3 100644 (file)
--- a/lib/PerlIO/via/t/QuotedPrint.t
+++ b/lib/PerlIO/via/t/QuotedPrint.t
@@ -7,6 +7,11 @@ BEGIN {                                # Magic Perl CORE pragma
         print "1..0 # Skip: PerlIO not used\n";
         exit 0;
     }
+    require Config;
+    if (($Config::Config{'extensions'} !~ /\bPerlIO::via\b/) ){
+        print "1..0 # Skip -- Perl configured without PerlIO::via module\n";
+        exit 0;
+    }
     if (ord("A") == 193) {
         print "1..0 # Skip: EBCDIC\n";
     }