X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=xs-src%2FMouseUtil.xs;h=3ec7d8cf4a4bc7a737ee9f96a7d349855cb1d8a4;hb=c7ec86fc6a846dd4e08ebbfca2bf9808a951bfe4;hp=8d0c51a702d05394b7f9f58f970bd272715d062b;hpb=dcce2592fe68fba003835495db169f6f9ee2646a;p=gitmo%2FMouse.git diff --git a/xs-src/MouseUtil.xs b/xs-src/MouseUtil.xs index 8d0c51a..3ec7d8c 100644 --- a/xs-src/MouseUtil.xs +++ b/xs-src/MouseUtil.xs @@ -323,7 +323,7 @@ mouse_install_sub(pTHX_ GV* const gv, SV* const code_ref) { if(GvCVu(gv)){ /* delete *slot{gv} to work around "redefine" warning */ SvREFCNT_dec(GvCV(gv)); - GvCV(gv) = NULL; + GvCV_set(gv, NULL); } sv_setsv_mg((SV*)gv, code_ref); /* *gv = $code_ref */