protect CvSTASH weakref with backrefs

Each CV usually has a pointer, CvSTASH, back to the stash that it was
complied in. This pointer isn't reference counted, to avoid loops. Which
can leave it dangling if the stash is deleted.

There is already protection for the similar GvSTASH field in GVs: the
stash has an array of backrefs, xhv_backreferences, pointing to the GVs
whose GvSTASHes point to it, and which is used to zero all the GvSTASH
fields should the stash be deleted.

All this patch does is also add the CVs with CvSTASH to that stash's
backref list too.

1 files changed, 1 insertions, 1 deletions

diff --git a/hv.c b/hv.c
index f94d6d45dd..b47b83a185 100644
--- a/hv.c
+++ b/hv.c
@@ -1709,7 +1709,7 @@ S_hfreeentries(pTHX_ HV *hv)
 	    HE *entry;
             struct mro_meta *meta;
 	    struct xpvhv_aux * const iter = HvAUX(hv);
-	    SV *const av = iter->xhv_backreferences;
+	    AV *const av = iter->xhv_backreferences;
 
 	    if (av) {
 		Perl_sv_kill_backrefs(aTHX_ MUTABLE_SV(hv), av);