Use new macro CvGV_set() (see perl5133delta)

diff --git a/mouse.h b/mouse.h
index 20415de..2c57da0 100644 (file)
--- a/mouse.h
+++ b/mouse.h
@@ -25,6 +25,10 @@
 #define GvNAMELEN_get GvNAMELEN
 #endif
 
+#ifndef CvGV_set
+#define CvGV_set(cv, gv) (CvGV(cv) = (gv))
+#endif
+
 #ifndef mro_get_linear_isa
 #define no_mro_get_linear_isa
 #define mro_get_linear_isa(stash) mouse_mro_get_linear_isa(aTHX_ stash)

diff --git a/xs-src/MouseUtil.xs b/xs-src/MouseUtil.xs
index ae5fb39..2d557a6 100644 (file)
--- a/xs-src/MouseUtil.xs
+++ b/xs-src/MouseUtil.xs
@@ -348,7 +348,7 @@ mouse_install_sub(pTHX_ GV* const gv, SV* const code_ref) {
             }
         }
 
-        CvGV(cv) = gv;
+        CvGV_set(cv, gv);
         CvANON_off(cv);
     }
 }