This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
vms.c thread clean-up
authorCraig A. Berry <craigberry@mac.com>
Sun, 23 Mar 2003 15:32:58 +0000 (09:32 -0600)
committerH.Merijn Brand <h.m.brand@xs4all.nl>
Mon, 24 Mar 2003 06:54:23 +0000 (06:54 +0000)
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <3E7E280A.5000304@mac.com>

p4raw-id: //depot/perl@19054

vms/vms.c

index d5c8a98..4a5d41c 100644 (file)
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -4618,6 +4618,12 @@ vms_image_init(int *argcp, char ***argvp)
   if (tabidx) { tabvec[tabidx] = NULL; env_tables = tabvec; }
 
   getredirection(argcp,argvp);
+#if defined(USE_ITHREADS) && ( defined(__DECC) || defined(__DECCXX) )
+  {
+# include <reentrancy.h>
+  (void) decc$set_reentrancy(C$C_MULTITHREAD);
+  }
+#endif
   return;
 }
 /*}}}*/
@@ -4845,7 +4851,7 @@ Perl_opendir(pTHX_ char *name)
     dd->pat.dsc$w_length = strlen(dd->pattern);
     dd->pat.dsc$b_dtype = DSC$K_DTYPE_T;
     dd->pat.dsc$b_class = DSC$K_CLASS_S;
-#if defined(USE_5005THREADS) || defined(USE_ITHREADS)
+#if defined(USE_ITHREADS)
     New(1308,dd->mutex,1,perl_mutex);
     MUTEX_INIT( (perl_mutex *) dd->mutex );
 #else
@@ -4876,7 +4882,7 @@ closedir(DIR *dd)
 {
     (void)lib$find_file_end(&dd->context);
     Safefree(dd->pattern);
-#if defined(USE_5005THREADS) || defined(USE_ITHREADS)
+#if defined(USE_ITHREADS)
     MUTEX_DESTROY( (perl_mutex *) dd->mutex );
     Safefree(dd->mutex);
 #endif