X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=xs-src%2FMouse.xs;h=8cab3104e61f669801120d95f67057d1de379c65;hb=24d5564d35368c23c59724fdfa05d9425748bfa0;hp=f008333d049410a52f6a3cd6dd0c80abf1836dbe;hpb=ba153b332782dce8bf44fcc78ebb7230002b950c;p=gitmo%2FMouse.git diff --git a/xs-src/Mouse.xs b/xs-src/Mouse.xs index f008333..8cab310 100644 --- a/xs-src/Mouse.xs +++ b/xs-src/Mouse.xs @@ -403,8 +403,8 @@ CODE: SV* sv = code_ref; /* used in tryAMAGICunDEREF */ SV** sp = &sv; /* used in tryAMAGICunDEREF */ tryAMAGICunDEREF(to_cv); /* try \&{$code} */ - if(SvROK(sv) && SvTYPE(SvRV(sv)) == SVt_PVCV){ - mouse_throw_error(self, NULL, "Not a CODE reference"); + if(!(SvROK(sv) && SvTYPE(SvRV(sv)) == SVt_PVCV)){ + mouse_throw_error(self, NULL, "You must pass a CODE reference to add_method"); } code_ref = sv; } @@ -560,7 +560,7 @@ CODE: PUSHMARK(SP); EXTEND(SP, 2); - PUSHs(RETVAL); + PUSHs(RETVAL); /* self */ PUSHs(args); PUTBACK;