X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=Cleanup.xs;h=e88916c2c52be88447a381a336270125ec0e5668;hb=d6ce81a815b5ee3cd5fd025cd6513c56c0173a0e;hp=0a19890d9b41753f65e903b66a18957c77c3b566;hpb=a518962799a5d83550da2be0f469ff665edbbb81;p=perl%2Fmodules%2FThread-Cleanup.git

diff --git a/Cleanup.xs b/Cleanup.xs
index 0a19890..e88916c 100644
--- a/Cleanup.xs
+++ b/Cleanup.xs
@@ -1,9 +1,9 @@
 /* This file is part of the Thread::Cleanup Perl module.
  * See http://search.cpan.org/dist/Thread-Cleanup/ */
-   
+
 #define PERL_NO_GET_CONTEXT
 #include "EXTERN.h"
-#include "perl.h" 
+#include "perl.h"
 #include "XSUB.h"
 
 #define __PACKAGE__     "Thread::Cleanup"
@@ -37,7 +37,6 @@ PROTOTYPES: DISABLE
 void
 CLONE(...)
 PREINIT:
-CODE:
- {
-  reap(3, tc_callback, NULL);
- }
+PPCODE:
+ reap(3, tc_callback, NULL);
+ XSRETURN(0);