; 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 1a7564d..0d5cedc 100644 (file)
--- a/t/uni/write.t
+++ b/t/uni/write.t
@@ -9,6 +9,10 @@ BEGIN {
         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;
@@ -97,4 +101,4 @@ $ulite1
 $bmulti$blite2
 EOEXPECT
 
-unlink 'Uni_write.tmp';
+1 while unlink 'Uni_write.tmp';