From: gfx <gfuji@cpan.org>
Date: Sat, 27 Mar 2010 06:29:16 +0000 (+0900)
Subject: Tiny tweaks
X-Git-Tag: 0.52~2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5bc4e0be9bbb708110180a33ab779caf68d93aa3;p=gitmo%2FMouse.git

Tiny tweaks
---

diff --git a/xs-src/Mouse.xs b/xs-src/Mouse.xs
index 2538ed4..619844b 100644
--- a/xs-src/Mouse.xs
+++ b/xs-src/Mouse.xs
@@ -717,7 +717,8 @@ CODE:
 
     len      = AvFILLp(demolishall) + 1;
     if(len > 0){
-        SAVEI32(PL_statusvalue);
+        SV* const in_global_destruction = boolSV(PL_dirty);
+        SAVEI32(PL_statusvalue); /* local $? */
         PL_statusvalue = 0;
 
         SAVESPTR(ERRSV); /* local $@ */
@@ -730,7 +731,7 @@ CODE:
 
             PUSHMARK(SP);
             PUSHs(object);
-            PUSHs(boolSV(PL_dirty));
+            PUSHs(in_global_destruction);
             PUTBACK;
 
             call_sv(AvARRAY(demolishall)[i], G_VOID | G_EVAL);