X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=Op.xs;h=e76fb9bd5c998bef67d83bcc56d0f6e41fa58077;hb=d13eb03da10981aca9ff101bd8d95727c1de4b5e;hp=bc85f7f921a4cf43c7af85f2e264bbb55c675f8d;hpb=6a7b5fad65453cfc8742554cef515b1d7c84443a;p=perl%2Fmodules%2FSub-Op.git

diff --git a/Op.xs b/Op.xs
index bc85f7f..e76fb9b 100644
--- a/Op.xs
+++ b/Op.xs
@@ -219,9 +219,6 @@ STATIC OP *so_ck_entersub(pTHX_ OP *o) {
    if (gv && SvTYPE(gv) >= SVt_PVGV && (cv = GvCV(gv)) == MY_CXT.placeholder) {
     SvREFCNT_dec(cv);
     GvCV(gv) = NULL;
-    if (!GvSV(gv) && !GvAV(gv) && !GvHV(gv) && !GvIO(gv) && !GvFORM(gv)) {
-     (void) hv_delete(stash, name, len, G_DISCARD);
-    }
    }
 
    o->op_type   = OP_CUSTOM;
@@ -288,9 +285,6 @@ STATIC OP *so_ck_gelem(pTHX_ OP *o) {
    if (gv && SvTYPE(gv) >= SVt_PVGV && (cv = GvCV(gv)) == MY_CXT.placeholder) {
     SvREFCNT_dec(cv);
     GvCV(gv) = NULL;
-    if (!GvSV(gv) && !GvAV(gv) && !GvHV(gv) && !GvIO(gv) && !GvFORM(gv)) {
-     (void)hv_delete(GvSTASH(gv), GvNAME_get(gv), GvNAMELEN_get(gv), G_DISCARD);
-    }
    }
   }
  }