From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 6 Mar 2002 20:06:37 +0000 (+0000)
Subject: 5005threads wasn't even compiling.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=35d7cf2c9b6fefb7e44eddd3fb941f22d9cc6724;p=p5sagit%2Fp5-mst-13.2.git

5005threads wasn't even compiling.

p4raw-id: //depot/perl@15070
---

diff --git a/perl.c b/perl.c
index a2921fb..6b8532e 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));