print "1..0 # encoding pragma does not support EBCDIC platforms\n";
exit(0);
}
+ if ("$]" >= 5.025) {
+ print "1..0 # encoding pragma not supported in Perl 5.26\n";
+ exit(0);
+ }
}
use lib qw(t ext/Encode/t ../ext/Encode/t); # latter 2 for perl core
use Mod_EUCJP;