add CvGV_set() macro and make CvGV() rvalue only

Now that CvGV can sometimes be reference counted, stop people from directly
assigning to it (by using CvGV as an lvalue), and instead force them to use
CvGV_set()

1 files changed, 2 insertions, 2 deletions

diff --git a/gv.c b/gv.c
index 917cfb7ee9..a5c33d93f1 100644
--- a/gv.c
+++ b/gv.c
@@ -215,7 +215,7 @@ Perl_cvgv_set(pTHX_ CV* cv, GV* gv)
 	}
     }
 
-    CvGV(cv) = gv;
+    SvANY(cv)->xcv_gv = gv;
     assert(!CvCVGV_RC(cv));
 
     if (!gv)
@@ -303,7 +303,7 @@ Perl_gv_init(pTHX_ GV *gv, HV *stash, const char *name, STRLEN len, int multi)
 	LEAVE;
 
         mro_method_changed_in(GvSTASH(gv)); /* sub Foo::bar($) { (shift) } sub ASDF::baz($); *ASDF::baz = \&Foo::bar */
-	cvgv_set(cv, gv);
+	CvGV_set(cv, gv);
 	CvFILE_set_from_cop(cv, PL_curcop);
 	CvSTASH(cv) = PL_curstash;
 	if (PL_curstash)