; was RE: [PATCH perlio.c pp.c regcomp.c] silence format and comparison warnings

[p5sagit/p5-mst-13.2.git] / t / uni / write.t

diff --git a/t/uni/write.t b/t/uni/write.t
index 95c3bbb..0d5cedc 100644 (file)
--- a/t/uni/write.t
+++ b/t/uni/write.t
@@ -5,6 +5,14 @@ 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;
+    }
+    if (ord("A") == 193) {
+        print "1..0 # Skip: EBCDIC porting needed\n";
+        exit 0;
+    }
 }
 
 plan tests => 6;
@@ -93,4 +101,4 @@ $ulite1
 $bmulti$blite2
 EOEXPECT
 
-unlink 'Uni_write.tmp';
+1 while unlink 'Uni_write.tmp';