diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-03-30 20:37:03 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-03-30 20:37:03 +0000 |
| commit | 7d654f43b92f51303a8d5388d3c3bfb7ebbceb22 (patch) | |
| tree | 2e25dddcf146578b2321b2bcd29bd231fc246916 /pp_hot.c | |
| parent | 1baaf5d77b117bc72b4f2555e0c839aed879e744 (diff) | |
| download | perl-7d654f43b92f51303a8d5388d3c3bfb7ebbceb22.tar.gz | |
Fix bug #38815 (localising keys which are UTF-8 encoded didn't delete
them correctly on scope exit)
p4raw-id: //depot/perl@27637
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -1828,7 +1828,8 @@ PP(pp_helem) if (!preeminent) { STRLEN keylen; const char * const key = SvPV_const(keysv, keylen); - SAVEDELETE(hv, savepvn(key,keylen), keylen); + SAVEDELETE(hv, savepvn(key,keylen), + SvUTF8(keysv) ? -(I32)keylen : keylen); } else save_helem(hv, keysv, svp); } |