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 (file)
--- 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;