This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
EBCDIC: someone who knows what they are doing
authorJarkko Hietaniemi <jhi@iki.fi>
Fri, 22 Feb 2002 04:30:27 +0000 (04:30 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 22 Feb 2002 04:30:27 +0000 (04:30 +0000)
and whether it is possible at all in the first
place needs to figure these tests out on EBCDIC.
The CJK encodings heavily abuse their knowledge
of ASCII and that may require a translation layer
or four to survive UTF-EBCDIC.

p4raw-id: //depot/perl@14826

ext/Encode/t/JP.t
ext/Encode/t/Tcl.t

index 2e38936..4a3416b 100644 (file)
@@ -10,6 +10,10 @@ BEGIN {
        print "1..0 # Skip: PerlIO was not built\n";
        exit 0;
     }
+    if (ord("A") == 193) {
+       print "1..0 # Skip: EBCDIC\n";
+       exit 0;
+    }
     $| = 1;
 }
 use strict;
index 950f658..cad5a01 100644 (file)
@@ -6,6 +6,10 @@ BEGIN {
       print "1..0 # Skip: Encode was not built\n";
       exit 0;
     }
+    if (ord("A") == 193) {
+       print "1..0 # Skip: EBCDIC\n";
+       exit 0;
+    }
 }
 use Test;
 use Encode qw(encode decode);