Change 16372 by jhi@alpha on 2002/05/03 13:01:23
The EBCDIC remapping of the low 256 bites again.
Affected files ...
.... //depot/perl/ext/Encode/Encode.pm#112 edit
.... //depot/perl/ext/Encode/lib/Encode/Guess.pm#6 edit
.... //depot/perl/ext/Encode/t/fallback.t#4 edit
.... //depot/perl/ext/Encode/t/guess.t#4 edit
.... //depot/perl/ext/Encode/t/mime-header.t#4 edit
.... //depot/perl/ext/PerlIO/t/fallback.t#4 edit
Differences ...
==== //depot/perl/ext/Encode/Encode.pm#112 (text) ====
Index: perl/ext/Encode/Encode.pm
--- perl/ext/Encode/Encode.pm.~1~ Fri May 3 07:15:05 2002
+++ perl/ext/Encode/Encode.pm Fri May 3 07:15:05 2002
@@ -601,6 +601,8 @@
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:
==== //depot/perl/ext/Encode/lib/Encode/Guess.pm#6 (text) ====
Index: perl/ext/Encode/lib/Encode/Guess.pm
--- perl/ext/Encode/lib/Encode/Guess.pm.~1~ Fri May 3 07:15:05 2002
+++ perl/ext/Encode/lib/Encode/Guess.pm Fri May 3 07:15:05 2002
@@ -290,6 +290,10 @@
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>
==== //depot/perl/ext/Encode/t/fallback.t#4 (text) ====
Index: perl/ext/Encode/t/fallback.t
--- perl/ext/Encode/t/fallback.t.~1~ Fri May 3 07:15:05 2002
+++ perl/ext/Encode/t/fallback.t Fri May 3 07:15:05 2002
@@ -8,6 +8,10 @@
print "1..0 # Skip: Encode was not built\n";
exit 0;
}
+ if (ord("A") == 193) {
+ print "1..0 # Skip: EBCDIC\n";
+ exit 0;
+ }
$| = 1;
}
==== //depot/perl/ext/Encode/t/guess.t#4 (text) ====
Index: perl/ext/Encode/t/guess.t
--- perl/ext/Encode/t/guess.t.~1~ Fri May 3 07:15:05 2002
+++ perl/ext/Encode/t/guess.t Fri May 3 07:15:05 2002
@@ -8,6 +8,10 @@
print "1..0 # Skip: Encode was not built\n";
exit 0;
}
+ if (ord("A") == 193) {
+ print "1..0 # Skip: EBCDIC\n";
+ exit 0;
+ }
$| = 1;
}
==== //depot/perl/ext/Encode/t/mime-header.t#4 (text) ====
Index: perl/ext/Encode/t/mime-header.t
--- perl/ext/Encode/t/mime-header.t.~1~ Fri May 3 07:15:05 2002
+++ perl/ext/Encode/t/mime-header.t Fri May 3 07:15:05 2002
@@ -12,6 +12,10 @@
print "1..0 # Skip: Encode was not built\n";
exit 0;
}
+ if (ord("A") == 193) {
+ print "1..0 # Skip: EBCDIC\n";
+ exit 0;
+ }
$| = 1;
}
==== //depot/perl/ext/PerlIO/t/fallback.t#4 (text) ====
Index: perl/ext/PerlIO/t/fallback.t
--- perl/ext/PerlIO/t/fallback.t.~1~ Fri May 3 07:15:05 2002
+++ perl/ext/PerlIO/t/fallback.t Fri May 3 07:15:05 2002
@@ -5,6 +5,10 @@
@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);
End of Patch.
