From: Vincent Pit <vince@profvince.com>
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/?p=perl%2Fmodules%2Findirect.git;a=commitdiff_plain;h=d4de0eee6c6b6904c04bb79eb1c129ee6aabc5ff

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