The EBCDIC remapping of the low 256 bites again.

p4raw-id: //depot/perl@16372

diff --git a/ext/Encode/Encode.pm b/ext/Encode/Encode.pm
index ccb0ade..b9febc9 100644 (file)
--- a/ext/Encode/Encode.pm
+++ b/ext/Encode/Encode.pm
@@ -601,6 +601,8 @@ constants via C<use Encode qw(:fallback_all)>.
 In the future, you will be able to use a code reference to a callback
 function for the value of I<CHECK> but its API is still undecided.
 
+The fallback scheme does not work on EBCDIC platforms.
+
 =head1 Defining Encodings
 
 To define a new encoding, use:

diff --git a/ext/Encode/lib/Encode/Guess.pm b/ext/Encode/lib/Encode/Guess.pm
index 2a84cc4..b106a04 100644 (file)
--- a/ext/Encode/lib/Encode/Guess.pm
+++ b/ext/Encode/lib/Encode/Guess.pm
@@ -290,6 +290,10 @@ It is, after all, just a guess.  You should alway be explicit when it
 comes to encodings.  But there are some, especially Japanese,
 environment that guess-coding is a must.  Use this module with care. 
 
+=head1 TO DO
+
+Encode::Guess does not work on EBCDIC platforms.
+
 =head1 SEE ALSO
 
 L<Encode>, L<Encode::Encoding>

diff --git a/ext/Encode/t/fallback.t b/ext/Encode/t/fallback.t
index de7191f..11b484a 100644 (file)
--- a/ext/Encode/t/fallback.t
+++ b/ext/Encode/t/fallback.t
@@ -8,6 +8,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;
+    }
     $| = 1;
 }
 

diff --git a/ext/Encode/t/guess.t b/ext/Encode/t/guess.t
index e27dfc8..563bc6f 100644 (file)
--- a/ext/Encode/t/guess.t
+++ b/ext/Encode/t/guess.t
@@ -8,6 +8,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;
+    }
     $| = 1;
 }
 

diff --git a/ext/Encode/t/mime-header.t b/ext/Encode/t/mime-header.t
index 826efbf..238be30 100644 (file)
--- a/ext/Encode/t/mime-header.t
+++ b/ext/Encode/t/mime-header.t
@@ -12,6 +12,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;
+    }
     $| = 1;
 }
 

diff --git a/ext/PerlIO/t/fallback.t b/ext/PerlIO/t/fallback.t
index b5eb18d..4676af4 100644 (file)
--- a/ext/PerlIO/t/fallback.t
+++ b/ext/PerlIO/t/fallback.t
@@ -5,6 +5,10 @@ BEGIN {
     @INC = '../lib';
     require "../t/test.pl";
     skip_all("No perlio") unless (find PerlIO::Layer 'perlio');
+    if (ord("A") == 193) {
+       print "1..0 # Skip: EBCDIC\n";
+       exit 0;
+    }
     plan (9);
 }
 use Encode qw(:fallback_all);