From: Vincent Pit <vince@profvince.com>
Date: Mon, 31 May 2010 22:34:55 +0000 (+0200)
Subject: Use a PPCODE: section in CLONE
X-Git-Tag: v0.04~1
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FThread-Cleanup.git;a=commitdiff_plain;h=c5684860390aa8af4773249abdb11757d8246dc3

Use a PPCODE: section in CLONE
---

diff --git a/Cleanup.xs b/Cleanup.xs
index 0a19890..c4f802b 100644
--- a/Cleanup.xs
+++ b/Cleanup.xs
@@ -37,7 +37,6 @@ PROTOTYPES: DISABLE
 void
 CLONE(...)
 PREINIT:
-CODE:
- {
-  reap(3, tc_callback, NULL);
- }
+PPCODE:
+ reap(3, tc_callback, NULL);
+ XSRETURN(0);