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 47f822274b0e001167923041bd8bc0cf4d8fbeda..2483f3593e84145a9bab24529d023bf3e38e01a0 100644 (file)
--- a/Types.xs
+++ b/Types.xs
@@ -669,7 +669,7 @@ STATIC void lt_teardown(pTHX_ void *root) {
  lt_initialized = 0;
 }
 
-STATIC lt_setup(pTHX) {
+STATIC void lt_setup(pTHX) {
 #define lt_setup() lt_setup(aTHX)
  if (lt_initialized)
   return;
@@ -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