Under the current (5.8.x) dispensation, there is one small hunk of
vms/vms.c that should be included regardless of what Perl threading
model is in effect, but currently is only included for USE_5005THREADS,
not USE_ITHREADS. That hunk sets the reentrancy model of the C library
at startup time. The patch attached here makes sure that happens
regardless of which threading model is being used. This applies only to
maintperl, not bleadperl. A separate, related patch for bleadperl is on
the way.
--- vms/vms.c;-1 Thu Mar 20 13:13:52 2003
+++ vms/vms.c Sat Mar 22 13:01:52 2003
@@ -4648,7 +4648,7 @@
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);
