Change 16395 by jhi@alpha on 2002/05/04 16:25:37
EBCDIC tweak.
Affected files ...
.... //depot/perl/ext/Storable/t/utf8hash.t#3 edit
Differences ...
==== //depot/perl/ext/Storable/t/utf8hash.t#3 (text) ====
Index: perl/ext/Storable/t/utf8hash.t
--- perl/ext/Storable/t/utf8hash.t.~1~ Sat May 4 10:30:05 2002
+++ perl/ext/Storable/t/utf8hash.t Sat May 4 10:30:05 2002
@@ -45,8 +45,12 @@
# 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
);
End of Patch.
