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

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;