This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
ext/PerlIO-encoding/t/encoding.t: Skip on EBCDIC
authorKarl Williamson <khw@cpan.org>
Fri, 28 Nov 2014 05:35:07 +0000 (22:35 -0700)
committerKarl Williamson <khw@cpan.org>
Sun, 15 Mar 2015 04:59:44 +0000 (22:59 -0600)
encoding doesn't current work.

ext/PerlIO-encoding/t/encoding.t

index fdd1f24..cba14a8 100644 (file)
@@ -9,6 +9,10 @@ BEGIN {
        print "1..0 # Skip: not Encode\n";
        exit 0;
     }
+    if (ord("A") == 193) {
+       print "1..0 # Skip: EBCDIC\n";
+       exit 0;
+    }
     require "../../t/charset_tools.pl";
 }