diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-04 16:25:37 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-04 16:25:37 +0000 |
| commit | de72622339eb01c10ccbb0e947c1c9c9759118ed (patch) | |
| tree | b5650a21183a4a5d6ddfe47ff5c7227d95f6b91a /ext/Storable | |
| parent | 2d6becbd00a9616dac5f0b98ae18d42642941cca (diff) | |
| download | perl-de72622339eb01c10ccbb0e947c1c9c9759118ed.tar.gz | |
EBCDIC tweak.
p4raw-id: //depot/perl@16395
Diffstat (limited to 'ext/Storable')
| -rw-r--r-- | ext/Storable/t/utf8hash.t | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/ext/Storable/t/utf8hash.t b/ext/Storable/t/utf8hash.t index 25d5307399..a545ac79bd 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 ); |