CLONE doesn't need to return anything, so make it use a PPCODE section

[perl/modules/Lexical-Types.git] / Types.xs

diff --git a/Types.xs b/Types.xs
index 4883ea19335aca4be9652d20c6d513d728455c30..2483f3593e84145a9bab24529d023bf3e38e01a0 100644 (file)
--- 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