X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=xs-src%2FMouseTypeConstraints.xs;h=43800a2558c6ef2f5b751de7b6c47c9f27b12c6d;hp=41f70d70da05d449d148bae921590a1a14ff458d;hb=92202689484fbcd39154c9e034a21efcac66b6fb;hpb=28ba5a267651519bd096e2e6ac43add4807a9b86

diff --git a/xs-src/MouseTypeConstraints.xs b/xs-src/MouseTypeConstraints.xs
index 41f70d7..43800a2 100644
--- a/xs-src/MouseTypeConstraints.xs
+++ b/xs-src/MouseTypeConstraints.xs
@@ -404,7 +404,7 @@ mouse_generate_isa_predicate_for(pTHX_ SV* const klass, const char* const predic
 
     CvXSUBANY(xsub).any_ptr = sv_magicext(
         (SV*)xsub,
-        mg_obj,
+        mg_obj, /* refcnt will be increased */
         PERL_MAGIC_ext,
         &mouse_util_type_constraints_vtbl,
         mg_ptr,