From: Steve Peters <steve@fisharerojo.org>
Date: Mon, 23 Jul 2007 13:42:24 +0000 (+0000)
Subject: Various fixes for EBCDIC platforms.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=78b7ef0673ed105edd723dec0b27f038e2675cd5;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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");