From: Roca Carrio, Ignasi (PO EP) <Ignasi.Roca@fujitsu-siemens.com>
Date: Fri, 14 Jun 2002 10:39:54 +0000 (+0200)
Subject: Constant.t for EBCDIC platforms
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=63e7cc8f805f8c42840bb4f7098604f52933c5cc;p=p5sagit%2Fp5-mst-13.2.git

Constant.t for EBCDIC platforms
From: "Roca Carrio, Ignasi (PO EP)" <Ignasi.Roca@fujitsu-siemens.com>
Message-ID: <318B95F90D8BD41194A5009027FD5FFBD7A438@madrid14.mad.fsc.net>

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

diff --git a/lib/ExtUtils/t/Constant.t b/lib/ExtUtils/t/Constant.t
index 7a91477..25d7055 100644
--- a/lib/ExtUtils/t/Constant.t
+++ b/lib/ExtUtils/t/Constant.t
@@ -56,7 +56,12 @@ N => 0, 'NE' => 45, E => 90, SE => 135, S => 180, SW => 225, W => 270, NW => 315
 my $parent_rfc1149 =
   'A Standard for the Transmission of IP Datagrams on Avian Carriers';
 # Check that 8 bit and unicode names don't cause problems.
-my $pound = chr 163; # A pound sign. (Currency)
+my $pound; 
+if (ord('A') == 193) {  # EBCDIC platform
+    $pound = chr 177; # A pound sign. (Currency)
+} else { # ASCII platform
+    $pound = chr 163; # A pound sign. (Currency)
+}
 my $inf = chr 0x221E;
 # Check that we can distiguish the pathological case of a string, and the
 # utf8 representation of that string.