[Perl] UTF8 hash key downgraded when assigned

[Gérald SÉDRATI-DINET]

Le 01/12/2018 à 08:14, Kai Carver a écrit :
> hello Gérard

Gérald en fait, ou Gibus c'est plus simple, Gérard c'est celui qui fume
du hackick avec les beatnicks https://www.youtube.com/watch?v=w8Oa70HmXVU ;)

> 
> curieux...
> 
> j'ai vu ceci:
> 
> "It appears to be a bug the optimisation of constant hash keys. The
> constant key string in $h{'Góry'} is being downgraded from utf8, whereas
> if you write my $g = 'Góry'; $h{$g} = 1; it works ok."
> https://www.perlmonks.org/index.pl?node_id=1197369
> 
> et effectivement le bug ne se produit pas si au lieu d'utiliser 'clé' tu
> utilises une variable $cle = 'clé'

Yeah merci Kai, c'est exactement ça: faut savoir que l'optimisation des
constantes comme clé de hash peut générer des problèmes.

-- 
Gérald Sédrati-Dinet
https://pascontent.sedrati-dinet.net     https://www.april.org
https://www.unitary-patent.eu            https://laquadrature.net

-------------- section suivante --------------
Une pièce jointe autre que texte a été nettoyée...
Nom: signature.asc
Type: application/pgp-signature
Taille: 195 octets
Desc: OpenPGP digital signature
URL: <http://listes.mongueurs.net/archives/perl/attachments/20181201/1daf5022/attachment.bin>