From: Dan Sugalski <dan@sidhe.org>
Date: Tue, 6 Jun 2000 11:59:50 +0000 (-0400)
Subject: ITHREADs for VMS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d4817f5b97d4072a6efac47844b617245b179f2c;p=p5sagit%2Fp5-mst-13.2.git

ITHREADs for VMS
Message-Id: <4.3.2.7.0.20000606115752.01c82220@24.8.96.48>

p4raw-id: //depot/cfgperl@6282
---

diff --git a/vms/vms.c b/vms/vms.c
index 9eb4224..42c6e14 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -394,7 +394,7 @@ prime_env_iter(void)
   $DESCRIPTOR(clidsc,"DCL");  $DESCRIPTOR(clitabdsc,"DCLTABLES");
   $DESCRIPTOR(crtlenv,"CRTL_ENV");  $DESCRIPTOR(clisym,"CLISYM");
   $DESCRIPTOR(local,"_LOCAL"); $DESCRIPTOR(mbxdsc,mbxnam); 
-#ifdef USE_THREADS
+#if defined(USE_THREADS) || defined(USE_ITHREADS)
   static perl_mutex primenv_mutex;
   MUTEX_INIT(&primenv_mutex);
 #endif