From e76300d6a3eeeae9f529c5a2d89e531c688df885 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 14 Apr 2003 20:36:55 +0000
Subject: PERLIO=perlio requires extra steps.

p4raw-id: //depot/perl@19209
---
 t/io/layers.t | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 't')

diff --git a/t/io/layers.t b/t/io/layers.t
index 15359c1741..6eb0656aeb 100644
--- a/t/io/layers.t
+++ b/t/io/layers.t
@@ -8,6 +8,10 @@ BEGIN {
 	print "1..0 # Skip: not perlio\n";
 	exit 0;
     }
+    if (exists $ENV{PERLIO} && $ENV{PERLIO} ne 'stdio') {
+	print "1..0 # PERLIO non-stdio\n";
+	exit(0);
+    }
 }
 
 plan tests => 43;
-- 
cgit v1.2.1