X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FThread-Cleanup.git;a=blobdiff_plain;f=Cleanup.xs;h=cc55d59e98eec3206bb0b6b3afbce854c8555372;hp=83ec8b461ef9a892d6808fbfd8dacb7e96d280dc;hb=f178c1e569b78464ea63bf184389cf1b00804690;hpb=ba8793aed63c1cd66942055b1c2d934bd1c28a9d

diff --git a/Cleanup.xs b/Cleanup.xs
index 83ec8b4..cc55d59 100644
--- a/Cleanup.xs
+++ b/Cleanup.xs
@@ -31,7 +31,7 @@ STATIC void tc_callback(pTHX_ void *ud) {
   PUSHMARK(SP);
   PUTBACK;
 
-  call_pv(__PACKAGE__ "::_CLEANUP", G_VOID);
+  call_pv(__PACKAGE__ "::_CLEANUP", G_VOID | G_EVAL);
 
   PUTBACK;