-/* This file is part of the Scope::Upper Perl module.
- * See http://search.cpan.org/dist/Scope-Upper/ */
+/* 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"
PUSHMARK(SP);
PUTBACK;
- call_pv(__PACKAGE__ "::_CLEANUP", G_VOID);
+ call_pv(__PACKAGE__ "::_CLEANUP", G_VOID | G_EVAL);
- SPAGAIN;
+ PUTBACK;
FREETMPS;
LEAVE;