X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=autovivification.xs;h=b56a21a36bc28e80719d3144c8f9874698b16191;hb=e407c4fcb511798d859e84809d1aaae9cafcae61;hp=aa9011abaf7a65809c2dc886997095eefe4573a2;hpb=e966f929bc46470f039c5d5a79d3a3463891ded7;p=perl%2Fmodules%2Fautovivification.git

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