From: gfx 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;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); } }