Correct the stack after calling the hook

[perl/modules/Thread-Cleanup.git] / Cleanup.xs

diff --git a/Cleanup.xs b/Cleanup.xs
index 6c80606ea8554e846898e5b84fcf6a4ebe824d7d..83ec8b461ef9a892d6808fbfd8dacb7e96d280dc 100644 (file)
--- 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;