diff options
Diffstat (limited to 'lib')
| -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; |