From e98863010dd41bde8cde1ac333d1a53d3d1c282e Mon Sep 17 00:00:00 2001
From: "Paul \"LeoNerd\" Evans" <leonerd@leonerd.org.uk>
Date: Mon, 13 Feb 2023 11:49:45 +0000
Subject: Set the CvREFCOUNTED_ANYSV flag on injected constructor so we
 sv_dup() the stash HV*

---
 class.c | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'class.c')

diff --git a/class.c b/class.c
index e7895f1e56..552030efa2 100644
--- a/class.c
+++ b/class.c
@@ -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:
-- 
cgit v1.2.1