X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=xs-src%2FMouseUtil.xs;h=92fa6769cb7f45a811b7a42d576d43d47daa4c7b;hp=d8e3f4cf5f59fdd128c3cc74ae2e6364696906e2;hb=077f2efda66008ab1a1fb959851a7c9062404588;hpb=431e4817af5380b349d562cafde91777db982a2a

diff --git a/xs-src/MouseUtil.xs b/xs-src/MouseUtil.xs
index d8e3f4c..92fa676 100644
--- a/xs-src/MouseUtil.xs
+++ b/xs-src/MouseUtil.xs
@@ -91,8 +91,6 @@ mouse_throw_error(SV* const metaobject, SV* const data /* not used */, const cha
     va_list args;
     SV* message;
 
-    PERL_UNUSED_ARG(data); /* for moose-compat */
-
     assert(metaobject);
     assert(fmt);
 
@@ -103,13 +101,13 @@ mouse_throw_error(SV* const metaobject, SV* const data /* not used */, const cha
     {
         dSP;
         PUSHMARK(SP);
-        EXTEND(SP, 4);
+        EXTEND(SP, 6);
 
         PUSHs(metaobject);
         mPUSHs(message);
 
         if(data){ /* extra arg, might be useful for debugging */
-            mPUSHs(newSVpsv("data"));
+            mPUSHs(newSVpvs("data"));
             PUSHs(data);
             mPUSHs(newSVpvs("depth"));
             mPUSHi(-1);