From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 16 Apr 2003 13:23:37 +0000 (+0000)
Subject: What does an empty PERLIO= mean, anyway?
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8d3a61d95b6b366467913bac62d4ce8a1a91f5be;p=p5sagit%2Fp5-mst-13.2.git

What does an empty PERLIO= mean, anyway?

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

diff --git a/t/io/layers.t b/t/io/layers.t
index 55be7cf..6f161cd 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} !~ /^(stdio|perlio|mmap)$/) {
+	print "1..0 # PERLIO='$ENV{PERLIO}' unknown\n";
+	exit 0;
+    }
 }
 
 plan tests => 43;
@@ -36,7 +40,8 @@ SKIP: {
 		ok($j->($result->[$i]), "$id - $i is ok");
 	    } else {
 		is($result->[$i], $j,
-		   sprintf("$id - $i is %s", defined $j ? $j : "undef"));
+		   sprintf("$id - $i is %s",
+			   defined $j ? $j : "undef"));
 	    }
 	}
     }