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 (file)
--- 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