p4raw-id: //depot/perl@15993
print "1..0 # Skip: Encode was not built\n";
exit 0;
}
+ unless (find PerlIO::Layer 'perlio') {
+ print "1..0 # Skip: PerlIO was not built\n";
+ exit 0;
+ }
if (ord("A") == 193) {
print "1..0 # Skip: EBCDIC\n";
exit 0;
print "1..0 # Skip: Encode was not built\n";
exit 0;
}
+ unless (find PerlIO::Layer 'perlio') {
+ print "1..0 # Skip: PerlIO was not built\n";
+ exit 0;
+ }
if (ord("A") == 193) {
print "1..0 # encoding pragma does not support EBCDIC platforms\n";
exit(0);