diff options
-rw-r--r-- | pp.c | 2 | ||||
-rw-r--r-- | pp_hot.c | 2 | ||||
-rw-r--r-- | scope.c | 2 |
3 files changed, 3 insertions, 3 deletions
@@ -3545,7 +3545,7 @@ PP(pp_hslice) else { STRLEN keylen; char *key = SvPV(keysv, keylen); - save_delete(hv, key, keylen); + SAVEDELETE(hv, savepvn(key,keylen), keylen); } } } @@ -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); } @@ -852,7 +852,7 @@ Perl_leave_scope(pTHX_ I32 base) ptr = SSPOPPTR; (void)hv_delete(hv, (char*)ptr, (U32)SSPOPINT, G_DISCARD); SvREFCNT_dec(hv); - /* Safefree(ptr); */ /* Does not work with shared strings. */ + Safefree(ptr); break; case SAVEt_DESTRUCTOR: ptr = SSPOPPTR; |