diff options
author | Paul "LeoNerd" Evans <leonerd@leonerd.org.uk> | 2023-02-13 11:49:45 +0000 |
---|---|---|
committer | Paul Evans <leonerd@leonerd.org.uk> | 2023-02-13 17:41:49 +0000 |
commit | e98863010dd41bde8cde1ac333d1a53d3d1c282e (patch) | |
tree | fb0c9949ab9251ebc3a6d3b298aa82de85af4426 /class.c | |
parent | 39e1ad85b8062369b2b64cd49b203ef9ea7f6ebc (diff) | |
download | perl-e98863010dd41bde8cde1ac333d1a53d3d1c282e.tar.gz |
Set the CvREFCOUNTED_ANYSV flag on injected constructor so we sv_dup() the stash HV*
Diffstat (limited to 'class.c')
-rw-r--r-- | class.c | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -129,7 +129,7 @@ XS(injected_constructor) { dXSARGS; - HV *stash = (HV *)XSANY.any_ptr; + HV *stash = (HV *)XSANY.any_sv; assert(HvSTASH_IS_CLASS(stash)); struct xpvhv_aux *aux = HvAUX(stash); @@ -353,7 +353,8 @@ Perl_class_setup_stash(pTHX_ HV *stash) SAVEFREESV(newname); CV *newcv = newXS_flags(SvPV_nolen(newname), injected_constructor, __FILE__, NULL, nameflags); - CvXSUBANY(newcv).any_ptr = stash; + CvXSUBANY(newcv).any_sv = (SV *)stash; + CvREFCOUNTED_ANYSV_on(newcv); } /* TODO: |