Accessing unicode keys in tie hashes via hv_exists was broken.

(pp_exists uses hv_exists_ent, which isn't broken)
I expect an equivalent bug in hv_delete

p4raw-id: //depot/perl@21734

1 files changed, 9 insertions, 0 deletions

diff --git a/hv.c b/hv.c
index 457fd5a95a..2d9b06e988 100644
--- a/hv.c
+++ b/hv.c
@@ -1276,6 +1276,15 @@ Perl_hv_exists(pTHX_ HV *hv, const char *key, I32 klen)
     if (SvRMAGICAL(hv)) {
 	if (mg_find((SV*)hv, PERL_MAGIC_tied) || SvGMAGICAL((SV*)hv)) {
 	    sv = sv_newmortal();
+	    if (is_utf8) {
+		/* This hack based on the code in hv_exists_ent seems to be
+		   the easiest way to pass the utf8 flag through and fix
+		   the bug in hv_exists for tied hashes with utf8 keys.  */
+		SV *keysv = sv_2mortal(newSVpvn(key, klen));
+		SvUTF8_on(keysv);
+		key = (char *)keysv;
+		klen = HEf_SVKEY;
+	    }
 	    mg_copy((SV*)hv, sv, key, klen);
 	    magic_existspack(sv, mg_find(sv, PERL_MAGIC_tiedelem));
 	    return (bool)SvTRUE(sv);