From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 10 Jul 2002 11:27:44 +0000 (+0000)
Subject: EBCDIC has different codepoints.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b13c494218827599481238f7c7f4125dd056dce1;p=p5sagit%2Fp5-mst-13.2.git

EBCDIC has different codepoints.

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

diff --git a/lib/PerlIO/via/t/QuotedPrint.t b/lib/PerlIO/via/t/QuotedPrint.t
index 9b2587c..2ce9cfb 100644
--- a/lib/PerlIO/via/t/QuotedPrint.t
+++ b/lib/PerlIO/via/t/QuotedPrint.t
@@ -9,6 +9,9 @@ BEGIN {
         print "1..0 # Skip: PerlIO not used\n";
 	exit 0;
     }
+    if (ord("A") == 193) {
+	print "1..0 # Skip: EBCDIC\n";
+    }
 }
 
 use Test::More tests => 11;