Use a PPCODE: section in CLONE

[perl/modules/Thread-Cleanup.git] / Cleanup.xs

diff --git a/Cleanup.xs b/Cleanup.xs
index 0a19890d9b41753f65e903b66a18957c77c3b566..c4f802b6a3acdac0f6c6afd1974a8abc42b4ae23 100644 (file)
--- 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);