X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=xs-src%2Fmouse_simple_accessor.xs;fp=xs-src%2Fmouse_simple_accessor.xs;h=f05d7534e03792cc58f5f4e71b5dd6973e6e6ec9;hb=3ea28db6c35f2f60bfcce151cb4fcee58d6edcf7;hp=285f3cbb33ab689876d5fbf2c1dac9971f37f3da;hpb=000bf66b6556949556a3499b970fd33ac83b3d4d;p=gitmo%2FMouse.git

diff --git a/xs-src/mouse_simple_accessor.xs b/xs-src/mouse_simple_accessor.xs
index 285f3cb..f05d753 100644
--- a/xs-src/mouse_simple_accessor.xs
+++ b/xs-src/mouse_simple_accessor.xs
@@ -62,7 +62,7 @@ XS(mouse_xs_simple_reader)
         croak("Expected exactly one argument for a reader for '%"SVf"'", slot);
     }
 
-    value = mouse_instance_get_slot(self, slot);
+    value = mouse_instance_get_slot(aTHX_ self, slot);
     ST(0) = value ? value : &PL_sv_undef;
     XSRETURN(1);
 }
@@ -78,7 +78,7 @@ XS(mouse_xs_simple_writer)
         croak("Expected exactly two argument for a writer for '%"SVf"'", slot);
     }
 
-    ST(0) = mouse_instance_set_slot(self, slot, ST(1));
+    ST(0) = mouse_instance_set_slot(aTHX_ self, slot, ST(1));
     XSRETURN(1);
 }
 
@@ -108,6 +108,6 @@ XS(mouse_xs_simple_predicate)
         croak("Expected exactly one argument for a predicate for '%"SVf"'", slot);
     }
 
-    ST(0) = boolSV( mouse_instance_has_slot(self, slot) );
+    ST(0) = boolSV( mouse_instance_has_slot(aTHX_ self, slot) );
     XSRETURN(1);
 }