From: Vincent Pit <vince@profvince.com>
Date: Sat, 2 Jan 2010 23:33:29 +0000 (+0100)
Subject: CLONE doesn't need to return anything, so make it use a PPCODE section
X-Git-Tag: v0.09~4
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FLexical-Types.git;a=commitdiff_plain;h=73299b2cf56db0ad019b926ca89534254cf4e799

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

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