From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 4 Mar 2003 04:58:36 +0000 (+0000)
Subject: Can't test this without PerlIO.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3995db9d6ce174a8383f94c41f5d5b8abec975e8;p=p5sagit%2Fp5-mst-13.2.git

Can't test this without PerlIO.

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

diff --git a/t/uni/write.t b/t/uni/write.t
index 95c3bbb..1a7564d 100644
--- a/t/uni/write.t
+++ b/t/uni/write.t
@@ -5,6 +5,10 @@ BEGIN {
     chdir 't' if -d 't';
     @INC = qw(../lib .);
     require "test.pl";
+    unless (PerlIO::Layer->find('perlio')){
+        print "1..0 # Skip: PerlIO required\n";
+        exit 0;
+    }
 }
 
 plan tests => 6;