The EBCDIC remapping of the low 256 bites again.

p4raw-id: //depot/perl@16372

5 files changed, 18 insertions, 0 deletions

diff --git a/ext/Encode/Encode.pm b/ext/Encode/Encode.pm
index ccb0ade226..b9febc9961 100644
--- 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 2a84cc453a..b106a0457c 100644
--- 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 de7191fec1..11b484af67 100644
--- 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 e27dfc842c..563bc6feb3 100644
--- 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 826efbfddd..238be30a60 100644
--- 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;
 }