From: gfx <gfuji@cpan.org>
Date: Sat, 27 Feb 2010 03:05:26 +0000 (+0900)
Subject: Use mcall1s() instead of raw perl API
X-Git-Tag: 0.50_05~12
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f10b7c0fd9728b06eb9e8a7421f6da6ae94f7163;p=gitmo%2FMouse.git

Use mcall1s() instead of raw perl API
---

diff --git a/xs-src/Mouse.xs b/xs-src/Mouse.xs
index e94d476..979fcd3 100644
--- a/xs-src/Mouse.xs
+++ b/xs-src/Mouse.xs
@@ -377,18 +377,7 @@ mouse_initialize_metaclass(pTHX_ SV* const klass) {
     SV* meta = get_metaclass(klass);
 
     if(!SvOK(meta)){
-        dSP;
-        PUSHMARK(SP);
-
-        EXTEND(SP, 2);
-        mPUSHp("Mouse::Meta::Class", sizeof("Mouse::Meta::Class")-1);
-        PUSHs(klass);
-        PUTBACK;
-
-        call_method("initialize", G_SCALAR);
-        SPAGAIN;
-        meta = POPs;
-        PUTBACK;
+        meta = mcall1s(newSVpvs_flags("Mouse::Meta::Class", SVs_TEMP), "initialize", klass);
     }
 
     return meta;