From: Vincent Pit Date: Tue, 18 May 2010 21:14:45 +0000 (+0200) Subject: Use a PPCODE: section in CLONE X-Git-Tag: rt57699~2 X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=d4de0eee6c6b6904c04bb79eb1c129ee6aabc5ff;p=perl%2Fmodules%2Findirect.git Use a PPCODE: section in CLONE --- diff --git a/indirect.xs b/indirect.xs index f0af0b6..ee45f23 100644 --- a/indirect.xs +++ b/indirect.xs @@ -906,7 +906,7 @@ PROTOTYPE: DISABLE PREINIT: ptable *t; int *level; -CODE: +PPCODE: { my_cxt_t ud; dMY_CXT; @@ -928,6 +928,7 @@ CODE: SAVEDESTRUCTOR_X(indirect_thread_cleanup, level); ENTERn("sub"); } + XSRETURN(0); #endif