From: gfx <gfuji@cpan.org>
Date: Mon, 7 Dec 2009 06:01:33 +0000 (+0900)
Subject: Tiny optimization for DESTROY
X-Git-Tag: 0.43~2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f8beb873dc6db9067aacdada68d0158366570f28;p=gitmo%2FMouse.git

Tiny optimization for DESTROY
---

diff --git a/xs-src/Mouse.xs b/xs-src/Mouse.xs
index 0a94ec8..d7cdb78 100644
--- a/xs-src/Mouse.xs
+++ b/xs-src/Mouse.xs
@@ -610,10 +610,10 @@ CODE:
         SAVESPTR(GvSV(statusvalue)); /* local $? */
         SAVESPTR(ERRSV); /* local $@ */
 
-        GvSV(statusvalue) = sv_2mortal(newSViv(0));
-        ERRSV             = sv_2mortal(newSVpvs(""));
+        GvSV(statusvalue) = sv_newmortal();
+        ERRSV             = newSVpvs_flags("", SVs_TEMP);
         for(i = 0; i < len; i++){
-            dSP;
+            SPAGAIN;
 
             PUSHMARK(SP);
             XPUSHs(object);