From: Vincent Pit <vince@profvince.com>
Date: Sat, 2 Jan 2010 20:55:46 +0000 (+0100)
Subject: Don't downgrade the globs completely
X-Git-Tag: v0.01~2
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FSub-Op.git;a=commitdiff_plain;h=08c8d3d772e4b8a9249f25851be11843a8932daa

Don't downgrade the globs completely

This may prevent a possible future use of the symbol.
---

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);
-    }
    }
   }
  }