Use a PPCODE: section in CLONE

diff --git a/Upper.xs b/Upper.xs
index f2106091cdeeef7c7a293189cc0cb7ff09c13c36..d78c722b3a36a0ba4ac33824d708d7f1ada398b5 100644 (file)
--- 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 */