Use a PPCODE: section in CLONE

[perl/modules/autovivification.git] / autovivification.xs

diff --git a/autovivification.xs b/autovivification.xs
index aa9011abaf7a65809c2dc886997095eefe4573a2..b56a21a36bc28e80719d3144c8f9874698b16191 100644 (file)
--- 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