From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 10 Jul 2002 03:58:58 +0000 (+0000)
Subject: If no PerlIO, no PerlIO::via.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=317cb137c3418dd049bc779e73249daa1321cd7e;p=p5sagit%2Fp5-mst-13.2.git

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