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 (file)
--- 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;