X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;ds=sidebyside;f=Types.xs;h=2483f3593e84145a9bab24529d023bf3e38e01a0;hb=73299b2cf56db0ad019b926ca89534254cf4e799;hp=4883ea19335aca4be9652d20c6d513d728455c30;hpb=a7eb9184fdf28bcad8e1955399eec5ca3284bac3;p=perl%2Fmodules%2FLexical-Types.git

diff --git a/Types.xs b/Types.xs
index 4883ea1..2483f35 100644
--- a/Types.xs
+++ b/Types.xs
@@ -733,7 +733,7 @@ PREINIT:
  ptable *t;
  int    *level;
  SV     *cloned_default_meth;
-CODE:
+PPCODE:
  {
   my_cxt_t ud;
   dMY_CXT;
@@ -756,6 +756,7 @@ CODE:
   SAVEDESTRUCTOR_X(lt_thread_cleanup, level);
   ENTER_with_name("sub");
  }
+ XSRETURN(0);
 
 #endif