From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 2 Dec 2002 19:59:07 +0000 (+0000)
Subject: Skip test #17 of lib/open.t when useperlio is not defined.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c4b28b7cc0e40557fc1e70e22387cf763a1ef2fe;p=p5sagit%2Fp5-mst-13.2.git

Skip test #17 of lib/open.t when useperlio is not defined.

p4raw-id: //depot/perl@18232
---

diff --git a/lib/open.t b/lib/open.t
index 905308d..3f0fdf2 100644
--- a/lib/open.t
+++ b/lib/open.t
@@ -171,7 +171,8 @@ EOE
        "checking syswrite() output on :utf8 streams by reading it back in");
 }
 
-{
+SKIP: {
+    skip("no perlio", 1) unless (find PerlIO::Layer 'perlio');
     use open IN => ':non-existent';
     eval {
 	require Anything;