probably a pass of EBCDIC->Unicode mapping. For now,
disable it on EBCDIC.
p4raw-id: //depot/perl@14572
use Encode;
+BEGIN {
+ if (ord("A") == 193) {
+ require Carp;
+ Carp::croak "encoding pragma does not support EBCDIC platforms";
+ }
+}
+
sub import {
my ($class, $name) = @_;
$name = $ENV{PERL_ENCODING} if @_ < 2;
the current implementation of the regular expressions may introduce
recoding errors for longer regular expression literals than 127 bytes.
+The encoding pragma is not supported on EBCDIC platforms.
+
=head1 SEE ALSO
L<perlunicode>, L<Encode>
print "1..19\n";
+BEGIN {
+ if (ord("A") == 193) {
+ print "1..0 # encoding pragma does not support EBCDIC platforms\n";
+ }
+}
+
use encoding "latin1"; # ignored (overwritten by the next line)
use encoding "greek"; # iso 8859-7 (no "latin" alias, surprise...)