From: Vincent Pit <vince@profvince.com>
Date: Tue, 18 May 2010 21:10:33 +0000 (+0200)
Subject: Use a PPCODE: section in CLONE
X-Git-Tag: v0.12~4
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FScope-Upper.git;a=commitdiff_plain;h=d9a0dbbfd5e7ec3408a7590705e08cf98e273b6e

Use a PPCODE: section in CLONE
---

diff --git a/Upper.xs b/Upper.xs
index f210609..d78c722 100644
--- a/Upper.xs
+++ b/Upper.xs
@@ -887,11 +887,11 @@ BOOT:
 void
 CLONE(...)
 PROTOTYPE: DISABLE
-CODE:
- PERL_UNUSED_VAR(items);
+PPCODE:
  {
   MY_CXT_CLONE;
  }
+ XSRETURN(0);
 
 #endif /* SU_THREADSAFE */