Remove the reference loop between symbol tables and typeglobs.

Typeglobs now have a weak reference onto their symbol table.

p4raw-id: //depot/perl@24966

1 files changed, 2 insertions, 1 deletions

diff --git a/pad.c b/pad.c
index 9c2b5a2410..ed68c40662 100644
--- a/pad.c
+++ b/pad.c
@@ -344,7 +344,8 @@ Perl_pad_add_name(pTHX_ const char *name, HV* typestash, HV* ourstash, bool fake
     }
     if (ourstash) {
 	SvFLAGS(namesv) |= SVpad_OUR;
-	GvSTASH(namesv) = (HV*)SvREFCNT_inc((SV*) ourstash);
+	GvSTASH(namesv) = ourstash;
+	Perl_sv_add_backref(aTHX_ (SV*)ourstash, namesv);
     }
 
     av_store(PL_comppad_name, offset, namesv);