mPUSHs(newSVpvs("depth"));
mPUSHi(-1);
}
-
PUTBACK;
-
- call_method("throw_error", G_VOID);
+ if(SvOK(metaobject)) {
+ call_method("throw_error", G_VOID);
+ }
+ else {
+ call_pv("Mouse::Util::throw_error", G_VOID);
+ }
croak("throw_error() did not throw the error (%"SVf")", message);
}
}
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 */