t/op/concat2.t: Skip 'use encoding' test in EBCDIC

This pragma does not work on EBCDIC platforms

diff --git a/t/op/concat2.t b/t/op/concat2.t
index 9dfcc5b..ef21e88 100644 (file)
--- a/t/op/concat2.t
+++ b/t/op/concat2.t
@@ -14,6 +14,7 @@ BEGIN {
 plan 3;
 
 SKIP: {
+skip("no encoding pragma in EBCDIC", 1) if $::IS_EBCDIC;
 skip_if_miniperl("no dynamic loading on miniperl, no Encode", 1);
 fresh_perl_is <<'end', "ok\n", {},
     no warnings 'deprecated';