From: Vincent Pit <vince@profvince.com>
Date: Mon, 16 Mar 2009 18:08:22 +0000 (+0100)
Subject: Correct the stack after calling the hook
X-Git-Tag: v0.02~8
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FThread-Cleanup.git;a=commitdiff_plain;h=e1c6e7a667bb4f5cc0225b126f2b99bdd8f8c5fc

Correct the stack after calling the hook
---

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;