X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=Cleanup.xs;h=83ec8b461ef9a892d6808fbfd8dacb7e96d280dc;hb=4c809697b9f79c6f752911f19642becfdff2dd87;hp=6c80606ea8554e846898e5b84fcf6a4ebe824d7d;hpb=b591e949fa7623c80aa62f8a0afeb7faed57a7cd;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;