From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 25 May 2009 09:59:03 +0000 (+0200)
Subject: Skip tests if PerlIO::scalar is not available
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0cb48d0073de16f10e39d528795df480f2e45d37;p=p5sagit%2Fp5-mst-13.2.git

Skip tests if PerlIO::scalar is not available
---

diff --git a/t/io/perlio.t b/t/io/perlio.t
index 3be0f6a..c145945 100644
--- a/t/io/perlio.t
+++ b/t/io/perlio.t
@@ -92,7 +92,11 @@ ok(close($utffh));
 }
 
 # in-memory open
-{
+SKIP: {
+    eval { require PerlIO::scalar };
+    unless (find PerlIO::Layer 'scalar') {
+	skip("PerlIO::scalar not found", 8);
+    }
     my $var;
     ok( open(my $x,"+<",\$var), 'magic in-memory file via 3 arg open with \\$var');
     ok( defined fileno($x),     '       fileno' );