X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=xs-src%2FMouseAccessor.xs;h=6af6b03558dd57183b7a6511242e8c1b9417b7a7;hb=619338ac4245c7c523d67645d6cd51cb982d4841;hp=ee7bf8dd5236eb5efec8517d9c4ac83d807f865c;hpb=d33d884067cd7e0451429470e5036d9fe98798c1;p=gitmo%2FMouse.git diff --git a/xs-src/MouseAccessor.xs b/xs-src/MouseAccessor.xs index ee7bf8d..6af6b03 100644 --- a/xs-src/MouseAccessor.xs +++ b/xs-src/MouseAccessor.xs @@ -164,6 +164,7 @@ mouse_apply_type_constraint(pTHX_ AV* const xa, SV* value, U16 const flags){ if(!SvOK(MOUSE_xa_tc_code(xa))){ tc_code = mcall0s(tc, "_compiled_type_constraint"); av_store(xa, MOUSE_XA_TC_CODE, newSVsv(tc_code)); + if(!(SvROK(tc_code) && SvTYPE(SvRV(tc_code)) == SVt_PVCV)){ mouse_throw_error(MOUSE_xa_attribute(xa), tc, "Not a CODE reference"); }