Change 17236 by jhi@alpha on 2002/06/14 11:16:57
Subject: [PATCH] Constant.t for EBCDIC platforms
From: "Roca Carrio, Ignasi (PO EP)" <[EMAIL PROTECTED]>
Date: Fri, 14 Jun 2002 10:39:54 +0200
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/lib/ExtUtils/t/Constant.t#7 edit
Differences ...
==== //depot/perl/lib/ExtUtils/t/Constant.t#7 (text) ====
Index: perl/lib/ExtUtils/t/Constant.t
--- perl/lib/ExtUtils/t/Constant.t#6~16636~ Thu May 16 15:38:35 2002
+++ perl/lib/ExtUtils/t/Constant.t Fri Jun 14 04:16:57 2002
@@ -56,7 +56,12 @@
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.
End of Patch.
