Store the stash for our in the magic slot. This will allow us to use

PVMGs in pad names where previously PVGVs were used. In turn, this
gives much greater flexibility for the layout of PVGVs.

p4raw-id: //depot/perl@27312

1 files changed, 1 insertions, 1 deletions

diff --git a/pad.c b/pad.c
index 97e2615134..1cad44463e 100644
--- a/pad.c
+++ b/pad.c
@@ -348,7 +348,7 @@ Perl_pad_add_name(pTHX_ const char *name, HV* typestash, HV* ourstash, bool fake
     if (ourstash) {
 	SvPAD_OUR_on(namesv);
 	OURSTASH_set(namesv, ourstash);
-	Perl_sv_add_backref(aTHX_ (SV*)ourstash, namesv);
+	SvREFCNT_inc(ourstash);
     }
 
     av_store(PL_comppad_name, offset, namesv);