From: gfx <gfuji@cpan.org>
Date: Sat, 5 Sep 2009 06:10:08 +0000 (+0900)
Subject: Fix a stack operation
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2b20ec6aae112aee01a676dd7c4b6696ed4743ae;p=gitmo%2FClass-MOP.git

Fix a stack operation
---

diff --git a/xs/MethodConstructor.xs b/xs/MethodConstructor.xs
index f5af4ad..5fa6eda 100644
--- a/xs/MethodConstructor.xs
+++ b/xs/MethodConstructor.xs
@@ -54,6 +54,9 @@ XS(mop_xs_constructor)
         croak("Not enough arguments for %s()", GvNAME(CvGV(cv)));
     }
 
+    SP -= items;
+    PUTBACK;
+
     klass = ST(0);
 
     if(SvROK(klass)){