From: gfx <gfuji@cpan.org>
Date: Tue, 20 Jul 2010 11:09:10 +0000 (+0900)
Subject: Use new macro CvGV_set() (see perl5133delta)
X-Git-Tag: 0.64~7
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d6ceb359d08b474a9f0911c7d7c3fd319761b0ae;hp=7e0e6837dcef39d945629cb04d5f4d7619b08034;p=gitmo%2FMouse.git

Use new macro CvGV_set() (see perl5133delta)
---

diff --git a/mouse.h b/mouse.h
index 20415de..2c57da0 100644
--- 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
--- 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);
     }
 }