From: Vincent Pit 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/?a=commitdiff_plain;h=e1c6e7a667bb4f5cc0225b126f2b99bdd8f8c5fc;p=perl%2Fmodules%2FThread-Cleanup.git 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;