This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Implement hv_delayfree_ent in terms of hv_free_ent
authorNicholas Clark <nick@ccl4.org>
Mon, 4 Jul 2005 15:03:32 +0000 (15:03 +0000)
committerNicholas Clark <nick@ccl4.org>
Mon, 4 Jul 2005 15:03:32 +0000 (15:03 +0000)
p4raw-id: //depot/perl@25072

hv.c

diff --git a/hv.c b/hv.c
index 99e034e..2d244f6 100644 (file)
--- a/hv.c
+++ b/hv.c
@@ -1508,18 +1508,12 @@ Perl_hv_delayfree_ent(pTHX_ HV *hv, register HE *entry)
 {
     if (!entry)
        return;
 {
     if (!entry)
        return;
-    if (isGV(HeVAL(entry)) && GvCVu(HeVAL(entry)) && HvNAME_get(hv))
-       PL_sub_generation++;    /* may be deletion of method from stash */
-    sv_2mortal(HeVAL(entry));  /* free between statements */
+    /* SvREFCNT_inc to counter the SvREFCNT_dec in hv_free_ent  */
+    sv_2mortal(SvREFCNT_inc(HeVAL(entry)));    /* free between statements */
     if (HeKLEN(entry) == HEf_SVKEY) {
     if (HeKLEN(entry) == HEf_SVKEY) {
-       sv_2mortal(HeKEY_sv(entry));
-       Safefree(HeKEY_hek(entry));
+       sv_2mortal(SvREFCNT_inc(HeKEY_sv(entry)));
     }
     }
-    else if (HvSHAREKEYS(hv))
-       unshare_hek(HeKEY_hek(entry));
-    else
-       Safefree(HeKEY_hek(entry));
-    del_HE(entry);
+    hv_free_ent(hv, entry);
 }
 
 /*
 }
 
 /*