diff options
author | Nicholas Clark <nick@ccl4.org> | 2012-09-23 22:05:16 +0200 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2012-09-26 23:28:50 +0200 |
commit | 103f5a36127499843005aa988becbcdca21384af (patch) | |
tree | 75b84da4272af918d7bbb8c8faab4000dd6df618 /gv.c | |
parent | 6f908f1bab380b2a2d78d238aad9752a9721f38a (diff) | |
download | perl-103f5a36127499843005aa988becbcdca21384af.tar.gz |
-Do now also reports updates and use of PL_stashcache.
Diffstat (limited to 'gv.c')
-rw-r--r-- | gv.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -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)), |