1 files changed, 3 insertions, 0 deletions
diff --git a/perl.c b/perl.c
index a2921fb1e4..6b8532e93d 100644
--- a/perl.c
+++ b/perl.c
@@ -115,6 +115,9 @@ PerlInterpreter *
 perl_alloc(void)
 {
     PerlInterpreter *my_perl;
+#ifdef USE_5005THREADS
+    dTHX;
+#endif
 
     /* New() needs interpreter, so call malloc() instead */
     my_perl = (PerlInterpreter*)PerlMem_malloc(sizeof(PerlInterpreter));