/* 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"
void
CLONE(...)
PREINIT:
-CODE:
- {
- reap(3, tc_callback, NULL);
- }
+PPCODE:
+ reap(3, tc_callback, NULL);
+ XSRETURN(0);