From a901eef84aae580e80c0351bb32ee5bca0f349f7 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Mon, 31 Mar 2003 05:00:07 +0000 Subject: Some low-hanging fruit for EBCDIC portability (or for marking as EBCDIC todos) p4raw-id: //depot/perl@19097 --- t/uni/write.t | 4 ++++ 1 file changed, 4 insertions(+) (limited to 't/uni') diff --git a/t/uni/write.t b/t/uni/write.t index 1a7564d3ac..717fcaba54 100644 --- 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; -- cgit v1.2.1