From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 18 Jun 2004 13:44:27 +0000 (+0000)
Subject: Also needs skipping if PerlIO::via not built
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c29a2e1a7db1f2900677bea320406eef3cc36b3e;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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";
     }