in reply to Re^4: UTF8 hash key downgraded when assigned
in thread UTF8 hash key downgraded when assigned
But I don't know how relevant that is.#!/usr/bin/perl use strict; use warnings; use utf8; use Devel::Peek; use Data::Dumper; $Data::Dumper::Useqq = 1; my $s = 'clé'; my %hash = ( $s => 0, ); my $key = (keys %hash)[0]; Dump($key); print Dumper($key); $hash{$s} = 1; $key = (keys %hash)[0]; Dump($key); print Dumper($key); __END__ Outputs: SV = PV(0x89d7b8) at 0x339d80 REFCNT = 1 FLAGS = (POK,pPOK,UTF8) PV = 0x8992e8 "cl\303\251"\0 [UTF8 "cl\x{e9}"] CUR = 4 LEN = 5 $VAR1 = "cl\x{e9}"; SV = PV(0x89d7b8) at 0x339d80 REFCNT = 1 FLAGS = (POK,pPOK,UTF8) PV = 0x2549998 "cl\303\251"\0 [UTF8 "cl\x{e9}"] CUR = 4 LEN = 5 $VAR1 = "cl\x{e9}";
|
|---|