From: Vincent Pit <vince@profvince.com>
Date: Tue, 18 May 2010 21:34:50 +0000 (+0200)
Subject: Use a PPCODE: section in CLONE
X-Git-Tag: rt62800~17
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=e407c4fcb511798d859e84809d1aaae9cafcae61;p=perl%2Fmodules%2Fautovivification.git

Use a PPCODE: section in CLONE
---

diff --git a/autovivification.xs b/autovivification.xs
index aa9011a..b56a21a 100644
--- a/autovivification.xs
+++ b/autovivification.xs
@@ -1125,7 +1125,7 @@ PROTOTYPE: DISABLE
 PREINIT:
  ptable *t;
  int    *level;
-CODE:
+PPCODE:
  {
   my_cxt_t ud;
   dMY_CXT;
@@ -1145,6 +1145,7 @@ CODE:
   SAVEDESTRUCTOR_X(a_thread_cleanup, level);
   ENTERn("sub");
  }
+ XSRETURN(0);
 
 #endif