diff options
author | Karl Williamson <khw@cpan.org> | 2020-03-20 12:22:55 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2020-07-30 15:12:09 -0600 |
commit | 251b1789b13d34059c4ccf766aca1fd218ab0112 (patch) | |
tree | 88e6e92673276a83d2d9264fab2e4ad9e796a130 /hv.c | |
parent | 6c148c868ed02375774c3c3e9d0c93d4684a2056 (diff) | |
download | perl-251b1789b13d34059c4ccf766aca1fd218ab0112.tar.gz |
Revert "there is no obvious reason not to set flags"
This reverts commit 0ddecb91901742e7df780394170d4bf818ee1da8
as part of https://github.com/Perl/perl5/issues/15855
Diffstat (limited to 'hv.c')
-rw-r--r-- | hv.c | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -392,7 +392,7 @@ Perl_hv_common(pTHX_ HV *hv, SV *keysv, const char *key, STRLEN klen, if (SvIsCOW_shared_hash(keysv)) { flags = HVhek_KEYCANONICAL | (is_utf8 ? HVhek_UTF8 : 0); } else { - flags = is_utf8 ? HVhek_UTF8 : 0; + flags = 0; } } else { is_utf8 = cBOOL(flags & HVhek_UTF8); @@ -400,7 +400,8 @@ Perl_hv_common(pTHX_ HV *hv, SV *keysv, const char *key, STRLEN klen, if (action & HV_DELETE) { return (void *) hv_delete_common(hv, keysv, key, klen, - flags, action, hash); + flags | (is_utf8 ? HVhek_UTF8 : 0), + action, hash); } xhv = (XPVHV*)SvANY(hv); |