diff options
| author | Ruslan Zakirov <ruz@bestpractical.com> | 2012-10-06 02:30:20 +0400 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-10-08 08:50:13 -0700 |
| commit | 6b230254a744a8e6a67ab2a70897631e271bf2e8 (patch) | |
| tree | d21276b4bcf34945b67711270346a9625473cb57 /hv.c | |
| parent | 0ddecb91901742e7df780394170d4bf818ee1da8 (diff) | |
| download | perl-6b230254a744a8e6a67ab2a70897631e271bf2e8.tar.gz | |
use HVhek_KEYCANONICAL in hv_delete
Diffstat (limited to 'hv.c')
| -rw-r--r-- | hv.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -959,7 +959,7 @@ S_hv_delete_common(pTHX_ HV *hv, SV *keysv, const char *key, STRLEN klen, if (!HvARRAY(hv)) return NULL; - if (is_utf8) { + if (is_utf8 && !(k_flags & HVhek_KEYCANONICAL)) { const char * const keysave = key; key = (char*)bytes_from_utf8((U8*)key, &klen, &is_utf8); |