From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 9 Sep 2003 07:06:26 +0000 (+0000)
Subject: Cannot do perlio into scalars without perlio.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=df14e5acc53ab0a422f0dc9a8ca42433efd6ad5f;p=p5sagit%2Fp5-mst-13.2.git

Cannot do perlio into scalars without perlio.

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

diff --git a/lib/dumpvar.t b/lib/dumpvar.t
index dff7bb2..9dddddc 100644
--- a/lib/dumpvar.t
+++ b/lib/dumpvar.t
@@ -3,6 +3,10 @@
 BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
+    unless (find PerlIO::Layer 'perlio') { # no perlio, no PerlIO::scalar.
+	print "1..0 # Skip: not perlio\n";
+	exit 0;
+    }
 }
 
 use strict;