This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
lib/ExtUtils/t/Embed.t: Skip on EBCDIC
authorKarl Williamson <khw@cpan.org>
Thu, 3 Oct 2019 03:17:23 +0000 (21:17 -0600)
committerKarl Williamson <khw@cpan.org>
Wed, 9 Oct 2019 16:34:19 +0000 (10:34 -0600)
This is not currently implemented for EBCDIC

lib/ExtUtils/t/Embed.t

index 59d7921..a5cf206 100644 (file)
@@ -18,6 +18,11 @@ if ( $Config{usecrosscompile} && !can_run($cc) ) {
     print "1..0 # SKIP Cross-compiling and the target doesn't have $cc";
     exit;
 }
+
+if (ord("A") != 65) {
+    print "1..0 # SKIP EBCDIC platform doesn't currently work";
+    exit;
+}
 open(my $fh,">embed_test.c") || die "Cannot open embed_test.c:$!";
 print $fh <DATA>;
 close($fh);