This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
5005threads wasn't even compiling.
authorJarkko Hietaniemi <jhi@iki.fi>
Wed, 6 Mar 2002 20:06:37 +0000 (20:06 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Wed, 6 Mar 2002 20:06:37 +0000 (20:06 +0000)
p4raw-id: //depot/perl@15070

perl.c

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