From: Vincent Pit 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/?a=commitdiff_plain;h=08c8d3d772e4b8a9249f25851be11843a8932daa;p=perl%2Fmodules%2FSub-Op.git 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); - } } } }