Change 31648 by [EMAIL PROTECTED] on 2007/07/23 13:42:24
Various fixes for EBCDIC platforms.
Affected files ...
... //depot/perl/ext/Encode/t/mime_header_iso2022jp.t#3 edit
... //depot/perl/t/io/layers.t#26 edit
Differences ...
==== //depot/perl/ext/Encode/t/mime_header_iso2022jp.t#3 (text) ====
Index: perl/ext/Encode/t/mime_header_iso2022jp.t
--- perl/ext/Encode/t/mime_header_iso2022jp.t#2~28098~ 2006-05-04
05:06:33.000000000 -0700
+++ perl/ext/Encode/t/mime_header_iso2022jp.t 2007-07-23 06:42:24.000000000
-0700
@@ -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;
==== //depot/perl/t/io/layers.t#26 (text) ====
Index: perl/t/io/layers.t
--- perl/t/io/layers.t#25~26066~ 2005-11-09 13:30:02.000000000 -0800
+++ perl/t/io/layers.t 2007-07-23 06:42:24.000000000 -0700
@@ -131,11 +131,11 @@
[ 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");
End of Patch.
