X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=xs-src%2FMouseAttribute.xs;h=0ec9a89ef5169dcfcbd94cdf75c054a6b4e0c9dc;hb=13756394019ebd1535c45fdca817887ce6a0b122;hp=a11471fedc4c3e574b3b3cb9c721faf5c5a2a233;hpb=ba1f50a24cf3b5c5a96ded5f68b030797bf17dd5;p=gitmo%2FMouse.git diff --git a/xs-src/MouseAttribute.xs b/xs-src/MouseAttribute.xs index a11471f..0ec9a89 100644 --- a/xs-src/MouseAttribute.xs +++ b/xs-src/MouseAttribute.xs @@ -48,10 +48,10 @@ mouse_get_xa(pTHX_ SV* const attr) { SV* const is_a_type_of = sv_2mortal(newSVpvs_share("is_a_type_of")); flags |= MOUSEf_ATTR_SHOULD_AUTO_DEREF; - if( SvTRUEx(mcall1(tc, is_a_type_of, newSVpvs_flags("ArrayRef", SVs_TEMP))) ){ + if( sv_true(mcall1(tc, is_a_type_of, newSVpvs_flags("ArrayRef", SVs_TEMP))) ){ flags |= MOUSEf_TC_IS_ARRAYREF; } - else if( SvTRUEx(mcall1(tc, is_a_type_of, newSVpvs_flags("HashRef", SVs_TEMP))) ){ + else if( sv_true(mcall1(tc, is_a_type_of, newSVpvs_flags("HashRef", SVs_TEMP))) ){ flags |= MOUSEf_TC_IS_HASHREF; } else{ @@ -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);