From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 4 May 2002 16:25:37 +0000 (+0000)
Subject: EBCDIC tweak.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=de72622339eb01c10ccbb0e947c1c9c9759118ed;p=p5sagit%2Fp5-mst-13.2.git

EBCDIC tweak.

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

diff --git a/ext/Storable/t/utf8hash.t b/ext/Storable/t/utf8hash.t
index 25d5307..a545ac7 100644
--- a/ext/Storable/t/utf8hash.t
+++ b/ext/Storable/t/utf8hash.t
@@ -45,8 +45,12 @@ for $Storable::canonical (0, 1) {
 # first we generate a nasty hash which keys include both utf8
 # on and off with identical PVs
 
+no utf8; # we have a naked 8-bit byte below (in Latin 1, anyway)
+
+# In Latin 1 -ese the below ord() should end up 0xc0 (192),
+# in EBCDIC 0x64 (100).  Both should end up being UTF-8/UTF-EBCDIC.
 my @ords = (
-	    0xc0,   # LATIN CAPITAL LETTER A WITH GRAVE
+	    ord("Á"), # LATIN CAPITAL LETTER A WITH GRAVE
 	    0x3000, #IDEOGRAPHIC SPACE
 	   );