diff options
| author | Karl Williamson <khw@cpan.org> | 2014-10-16 21:05:14 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2015-03-14 22:59:44 -0600 |
| commit | 7e56ff28b151b8afcdd85f6556e7fb4ed91401e2 (patch) | |
| tree | e9162a70500c5cdbddeff13c55e0e3ddbc62d604 | |
| parent | 43ab143da1a8f440550f595c17a52bb817585047 (diff) | |
| download | perl-7e56ff28b151b8afcdd85f6556e7fb4ed91401e2.tar.gz | |
PerlIO-encoding/t/nolooping.t: Skip on EBCDIC platform
| -rw-r--r-- | ext/PerlIO-encoding/t/nolooping.t | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/ext/PerlIO-encoding/t/nolooping.t b/ext/PerlIO-encoding/t/nolooping.t index 4acb0f59d7..5e262be7f4 100644 --- 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] }; } |