From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 13 Jun 2003 17:08:45 +0000 (+0000)
Subject: Encode simply needs more work on EBCDIC.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cff1be36840a17022b50a6f295ed97efe19b975e;p=p5sagit%2Fp5-mst-13.2.git

Encode simply needs more work on EBCDIC.

p4raw-id: //depot/perl@19768
---

diff --git a/ext/Encode/t/Unicode.t b/ext/Encode/t/Unicode.t
index efb3984..0d5c6b9 100644
--- a/ext/Encode/t/Unicode.t
+++ b/ext/Encode/t/Unicode.t
@@ -5,14 +5,16 @@
 # do include non-BMP unicode characters -- Are you happy, jhi?
 #
 
-our $ON_EBCDIC;
 BEGIN {
     require Config; import Config;
     if ($Config{'extensions'} !~ /\bEncode\b/) {
       print "1..0 # Skip: Encode was not built\n";
       exit 0;
     }
-    $ON_EBCDIC = (ord("A") == 193) || $ARGV[0];
+    if (ord("A") == 193) {
+        print "1..0 # Skip: EBCDIC\n";
+	exit 0;
+    }
     $| = 1;
 }
 
@@ -87,7 +89,6 @@ is(index($@, 'UCS-2LE'), 0, "encode UCS-2LE: exception");
 # SvGROW test for (en|de)code_xs
 #
 SKIP: {
-    skip "Not on EBCDIC", 8 if $ON_EBCDIC;
     my $utf8 = '';
     for my $j (0,0x10){
 	for my $i (0..0xffff){