vms.c threads tweak

From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <3E7E1FD4.3000704@mac.com>

p4raw-id: //depot/maint-5.8/perl@19049

diff --git a/vms/vms.c b/vms/vms.c
index de1ba06..d881afa 100644 (file)
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -4648,7 +4648,7 @@ vms_image_init(int *argcp, char ***argvp)
   if (tabidx) { tabvec[tabidx] = NULL; env_tables = tabvec; }
 
   getredirection(argcp,argvp);
-#if defined(USE_5005THREADS) && ( defined(__DECC) || defined(__DECCXX) )
+#if ( (defined(USE_5005THREADS) || defined(USE_ITHREADS) ) && ( defined(__DECC) || defined(__DECCXX) )
   {
 # include <reentrancy.h>
   (void) decc$set_reentrancy(C$C_MULTITHREAD);