From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 27 Jan 2002 19:34:56 +0000 (+0000)
Subject: Apparently no need for EBCDIC exception any more.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fd3fb69e17a735d64424a2e015c5670a8f4b37b8;p=p5sagit%2Fp5-mst-13.2.git

Apparently no need for EBCDIC exception any more.

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

diff --git a/ext/B/t/showlex.t b/ext/B/t/showlex.t
index 1322235..afff12e 100755
--- a/ext/B/t/showlex.t
+++ b/ext/B/t/showlex.t
@@ -33,11 +33,6 @@ if ($is_thread) {
     print "# use5005threads: test $test skipped\n";
 } else {
     $a = `$^X $path "-MO=Showlex" -e "my \@one" $redir`;
-    if (ord('A') != 193) { # ASCIIish
-        print "# [$a]\nnot " unless $a =~ /sv_undef.*PVNV.*\@one.*sv_undef.*AV/s;
-    }
-    else { # EBCDICish C<1: PVNV (0x1a7ede34) "@\226\225\205">
-        print "# [$a]\nnot " unless $a =~ /sv_undef.*PVNV.*\@\\[0-9].*sv_undef.*AV/s;
-    }
+    print "# [$a]\nnot " unless $a =~ /sv_undef.*PVNV.*\@one.*sv_undef.*AV/s;
 }
 ok;