PerlIO-encoding/t/nolooping.t: Skip on EBCDIC platform

diff --git a/ext/PerlIO-encoding/t/nolooping.t b/ext/PerlIO-encoding/t/nolooping.t
index 4acb0f5..5e262be 100644 (file)
--- a/ext/PerlIO-encoding/t/nolooping.t
+++ b/ext/PerlIO-encoding/t/nolooping.t
@@ -10,10 +10,11 @@ BEGIN {
 
 use Config;
 
-use Test::More $Config{useperlio}
-    ? (tests => 1)
-    : (skip_all => 'No PerlIO enabled');
-
+use Test::More (ord("A") == 65 && $Config{useperlio})
+               ? (tests => 1)
+               : (skip_all => '(No PerlIO enabled;'
+                            . ' or is EBCDIC platform which doesnt have'
+                            . ' "use encoding" used by open ":locale")');
 BEGIN {
     $SIG{__WARN__} = sub { $warn .= $_[0] };
 }