summaryrefslogtreecommitdiff
path: root/gv.c
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2012-09-23 22:05:16 +0200
committerNicholas Clark <nick@ccl4.org>2012-09-26 23:28:50 +0200
commit103f5a36127499843005aa988becbcdca21384af (patch)
tree75b84da4272af918d7bbb8c8faab4000dd6df618 /gv.c
parent6f908f1bab380b2a2d78d238aad9752a9721f38a (diff)
downloadperl-103f5a36127499843005aa988becbcdca21384af.tar.gz
-Do now also reports updates and use of PL_stashcache.
Diffstat (limited to 'gv.c')
-rw-r--r--gv.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/gv.c b/gv.c
index 12f9491dbe..f352452a35 100644
--- a/gv.c
+++ b/gv.c
@@ -2172,6 +2172,7 @@ Perl_gp_free(pTHX_ GV *gv)
Somehow gp->gp_hv can end up pointing at freed garbage. */
if (hv && SvTYPE(hv) == SVt_PVHV) {
const HEK *hvname_hek = HvNAME_HEK(hv);
+ DEBUG_o(Perl_deb(aTHX_ "gp_free clearing PL_stashcache for '%"HEKf"'\n", hvname_hek));
if (PL_stashcache && hvname_hek)
(void)hv_delete(PL_stashcache, HEK_KEY(hvname_hek),
(HEK_UTF8(hvname_hek) ? -HEK_LEN(hvname_hek) : HEK_LEN(hvname_hek)),