From: gfx <gfuji@cpan.org>
Date: Sat, 27 Mar 2010 06:23:25 +0000 (+0900)
Subject: Use PL_statusvalue directly, instead of useing $?
X-Git-Tag: 0.52~3
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9bd5683dad60cbe88f0fdd07cfe2600df5f84166;p=gitmo%2FMouse.git

Use PL_statusvalue directly, instead of useing $?
---

diff --git a/xs-src/Mouse.xs b/xs-src/Mouse.xs
index 955ab2f..2538ed4 100644
--- a/xs-src/Mouse.xs
+++ b/xs-src/Mouse.xs
@@ -717,12 +717,9 @@ CODE:
 
     len      = AvFILLp(demolishall) + 1;
     if(len > 0){
-        GV* const statusvalue = gv_fetchpvs("?", 0, SVt_PV);
+        SAVEI32(PL_statusvalue);
+        PL_statusvalue = 0;
 
-        if(statusvalue){ /* it can be NULL */
-            SAVESPTR(GvSV(statusvalue)); /* local $? */
-            GvSV(statusvalue) = sv_newmortal();
-        }
         SAVESPTR(ERRSV); /* local $@ */
         ERRSV = sv_newmortal();