Various fixes for EBCDIC platforms.

p4raw-id: //depot/perl@31648

diff --git a/ext/Encode/t/mime_header_iso2022jp.t b/ext/Encode/t/mime_header_iso2022jp.t
index bc26b9e..f1be864 100644 (file)
--- a/ext/Encode/t/mime_header_iso2022jp.t
+++ b/ext/Encode/t/mime_header_iso2022jp.t
@@ -1,5 +1,11 @@
 
-use Test::More tests => 14;
+use Test::More;
+
+if( ord("A") == 193 ) {
+    plan skip_all => 'No Encode::MIME::Header::ISO_2022_JP on EBCDIC Platforms';
+} else {
+    plan tests => 14;
+}
 
 use strict;
 use Encode;

diff --git a/t/io/layers.t b/t/io/layers.t
index c399b2a..abbc7ec 100644 (file)
--- a/t/io/layers.t
+++ b/t/io/layers.t
@@ -131,11 +131,11 @@ SKIP: {
          [ qw(stdio crlf) ],
          "open :crlf");
 
-    binmode(F, ":encoding(sjis)"); # "sjis" will be canonized to "shiftjis"
+    binmode(F, ":encoding(cp1047)"); 
 
     check([ PerlIO::get_layers(F) ],
-         [ qw[stdio crlf encoding(shiftjis) utf8] ],
-         ":encoding(sjis)");
+         [ qw[stdio crlf encoding(cp1047) utf8] ],
+         ":encoding(cp1047)");
     
     binmode(F, ":pop");