Disable ${^ENCODING}

${^ENCODING} is disabled and tests are modified to account.

4 files changed, 16 insertions, 0 deletions

diff --git a/cpan/Encode/t/enc_data.t b/cpan/Encode/t/enc_data.t
index a0caf650f1..b4015955bb 100644
--- a/cpan/Encode/t/enc_data.t
+++ b/cpan/Encode/t/enc_data.t
@@ -14,6 +14,10 @@ BEGIN {
     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);
+    }
     if ($] <= 5.008 and !$Config{perl_patchlevel}){
     print "1..0 # Skip: Perl 5.8.1 or later required\n";
     exit 0;
diff --git a/cpan/Encode/t/enc_module.t b/cpan/Encode/t/enc_module.t
index 05fc6c2f64..3004ed2bac 100644
--- a/cpan/Encode/t/enc_module.t
+++ b/cpan/Encode/t/enc_module.t
@@ -18,6 +18,10 @@ BEGIN {
     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;
diff --git a/cpan/Encode/t/encoding.t b/cpan/Encode/t/encoding.t
index 21f9e47eb7..18d1921428 100644
--- a/cpan/Encode/t/encoding.t
+++ b/cpan/Encode/t/encoding.t
@@ -12,6 +12,10 @@ BEGIN {
     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);
+    }
 }
 
 print "1..33\n";
diff --git a/cpan/Encode/t/jperl.t b/cpan/Encode/t/jperl.t
index 3abe86b9b7..5f437fff10 100644
--- a/cpan/Encode/t/jperl.t
+++ b/cpan/Encode/t/jperl.t
@@ -17,6 +17,10 @@ BEGIN {
     print "1..0 # Skip: EBCDIC\n";
     exit 0;
     }
+    if ("$]" >= 5.025) {
+    print "1..0 # encoding pragma not supported in Perl 5.26\n";
+    exit(0);
+    }
     $| = 1;
 }