X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=xs-src%2FMouse.xs;h=86b78968b26d9ef4ceae5fd34c14e29af3519f1f;hp=34ba35140a23dd7140daf4b37309ecc6cb10f545;hb=6514735e9b5d79f955badf9f50970ee768a44337;hpb=6475f69defb20a02b6559bddf870a0821f28ac20

diff --git a/xs-src/Mouse.xs b/xs-src/Mouse.xs
index 34ba351..86b7896 100644
--- a/xs-src/Mouse.xs
+++ b/xs-src/Mouse.xs
@@ -650,6 +650,7 @@ CODE:
 
             PUSHMARK(SP);
             XPUSHs(object);
+            XPUSHs(boolSV(PL_dirty));
             PUTBACK;
 
             call_sv(AvARRAY(demolishall)[i], G_VOID | G_EVAL);