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 (file)
--- 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.