}
}
- PERL_HASH(hash, key, klen);
+ PERL_HASH(hash, (U8*)key, klen);
/* entry = (HvARRAY(hv))[hash & (I32) HvMAX(hv)]; */
entry = ((HE**)xhv->xhv_array)[hash & (I32) xhv->xhv_max];
}
if (!hash)
- PERL_HASH(hash, key, klen);
+ PERL_HASH(hash, (U8*)key, klen);
/* entry = (HvARRAY(hv))[hash & (I32) HvMAX(hv)]; */
entry = ((HE**)xhv->xhv_array)[hash & (I32) xhv->xhv_max];
HvHASKFLAGS_on((SV*)hv);
if (!hash)
- PERL_HASH(hash, key, klen);
+ PERL_HASH(hash, (U8*)key, klen);
if (!xhv->xhv_array /* !HvARRAY(hv) */)
Newz(505, xhv->xhv_array /* HvARRAY(hv) */,
}
if (!hash)
- PERL_HASH(hash, key, klen);
+ PERL_HASH(hash, (U8*)key, klen);
if (!xhv->xhv_array /* !HvARRAY(hv) */)
Newz(505, xhv->xhv_array /* HvARRAY(hv) */,
k_flags |= HVhek_FREEKEY;
}
- PERL_HASH(hash, key, klen);
+ PERL_HASH(hash, (U8*)key, klen);
/* oentry = &(HvARRAY(hv))[hash & (I32) HvMAX(hv)]; */
oentry = &((HE**)xhv->xhv_array)[hash & (I32) xhv->xhv_max];
}
if (!hash)
- PERL_HASH(hash, key, klen);
+ PERL_HASH(hash, (U8*)key, klen);
/* oentry = &(HvARRAY(hv))[hash & (I32) HvMAX(hv)]; */
oentry = &((HE**)xhv->xhv_array)[hash & (I32) xhv->xhv_max];
k_flags |= HVhek_FREEKEY;
}
- PERL_HASH(hash, key, klen);
+ PERL_HASH(hash, (U8*)key, klen);
#ifdef DYNAMIC_ENV_FETCH
if (!xhv->xhv_array /* !HvARRAY(hv) */) entry = Null(HE*);
k_flags |= HVhek_FREEKEY;
}
if (!hash)
- PERL_HASH(hash, key, klen);
+ PERL_HASH(hash, (U8*)key, klen);
#ifdef DYNAMIC_ENV_FETCH
if (!xhv->xhv_array /* !HvARRAY(hv) */) entry = Null(HE*);
sv = newSVpvn ((char*)as_utf8, utf8_len);
SvUTF8_on (sv);
+ Safefree (as_utf8); /* bytes_to_utf8() allocates a new string */
} else {
sv = newSVpvn_share(HEK_KEY(hek),
(HEK_UTF8(hek) ? -HEK_LEN(hek) : HEK_LEN(hek)),