summaryrefslogtreecommitdiff
path: root/pp_hot.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2001-01-09 21:06:08 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2001-01-09 21:06:08 +0000
commit4ad894e6fdc648003037b2ed9d6c7a4abd4e680f (patch)
tree95025d62ea0b8c2c0dd10fa09432a26f73df3be6 /pp_hot.c
parent2bd2a56f1f06126d44f2fb1eb85d61b39e329205 (diff)
downloadperl-4ad894e6fdc648003037b2ed9d6c7a4abd4e680f.tar.gz
save_delete(), err, SAVEDELETE() fixes from Charles Lane.
Should finish up the bug id 20001205.022. p4raw-id: //depot/perl@8382
Diffstat (limited to 'pp_hot.c')
-rw-r--r--pp_hot.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/pp_hot.c b/pp_hot.c
index 30cc61d22c..df666473ad 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -1577,7 +1577,7 @@ PP(pp_helem)
if (!preeminent) {
STRLEN keylen;
char *key = SvPV(keysv, keylen);
- save_delete(hv, key, keylen);
+ SAVEDELETE(hv, savepvn(key,keylen), keylen);
} else
save_helem(hv, keysv, svp);
}