X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FThread-Cleanup.git;a=blobdiff_plain;f=Cleanup.xs;h=cc55d59e98eec3206bb0b6b3afbce854c8555372;hp=6c80606ea8554e846898e5b84fcf6a4ebe824d7d;hb=f77be155e989d3ee336808d996da35ba5e14c9ef;hpb=b591e949fa7623c80aa62f8a0afeb7faed57a7cd

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