diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-07-10 11:27:44 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-07-10 11:27:44 +0000 |
| commit | 8a52199aa32a40baf753bc3d6fc3cba9208c8027 (patch) | |
| tree | a14649b061780c0c4835afff85cc8687fbe5695d /lib/PerlIO | |
| parent | d901b58cecb83404b512d4005fbbc4ed3b6d232b (diff) | |
| download | perl-8a52199aa32a40baf753bc3d6fc3cba9208c8027.tar.gz | |
EBCDIC has different codepoints.
p4raw-id: //depot/perl@17462
Diffstat (limited to 'lib/PerlIO')
| -rw-r--r-- | lib/PerlIO/via/t/QuotedPrint.t | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/PerlIO/via/t/QuotedPrint.t b/lib/PerlIO/via/t/QuotedPrint.t index 9b2587c04a..2ce9cfb0fc 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; |