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

diff --git a/Cleanup.xs b/Cleanup.xs
index 6c80606..83ec8b4 100644
--- a/Cleanup.xs
+++ b/Cleanup.xs
@@ -33,7 +33,7 @@ STATIC void tc_callback(pTHX_ void *ud) {
 
   call_pv(__PACKAGE__ "::_CLEANUP", G_VOID);
 
-  SPAGAIN;
+  PUTBACK;
 
   FREETMPS;
   LEAVE;