X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=xs-src%2FMouseAttribute.xs;h=63da0ce25f2f95b7bb99ed409cc98225afaf4797;hp=97b282e8a7b5e8c993c3e87067ce224d98e9c493;hb=4b7f0b170d8518b09bf776647b67ccf71b72aea0;hpb=6ad77996af3989f512a308404b2593c369d18e14 diff --git a/xs-src/MouseAttribute.xs b/xs-src/MouseAttribute.xs index 97b282e..63da0ce 100644 --- a/xs-src/MouseAttribute.xs +++ b/xs-src/MouseAttribute.xs @@ -111,7 +111,7 @@ mouse_xa_apply_type_constraint(pTHX_ AV* const xa, SV* value, U16 const flags){ SV* tc_code; if(flags & MOUSEf_ATTR_SHOULD_COERCE){ - value = mcall1s(tc, "coerce", value); + value = mcall1(tc, mouse_coerce, value); } if(!SvOK(MOUSE_xa_tc_code(xa))){ @@ -324,7 +324,7 @@ CODE: XPUSHs(*svp); PUTBACK; - call_pv("Mouse::Util::TypeConstraints::find_or_create_isa_type_constraint", + call_pv("Mouse::Util::TypeConstraints::find_or_create_does_type_constraint", G_SCALAR); SPAGAIN; tc = newSVsv(POPs);