From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 15 Nov 2001 22:03:46 +0000 (+0000)
Subject: VMSCMD synch attempt.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=da63c68b5c5846782b25159ecdf311e839c9845b;p=p5sagit%2Fp5-mst-13.2.git

VMSCMD synch attempt.

p4raw-id: //depot/perl@13030
---

diff --git a/vms/vms.c b/vms/vms.c
index a82625d..28dfa70 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -127,9 +127,6 @@ static bool will_taint = FALSE;  /* tainting active, but no PL_curinterp yet */
 /* munching */ 
 static int no_translate_barewords;
 
-/* Temp for subprocess commands */
-static struct dsc$descriptor_s VMSCMD = {0,DSC$K_DTYPE_T,DSC$K_CLASS_S,Nullch};
-
 #ifndef RTL_USES_UTC
 static int tz_updated = 1;
 #endif
diff --git a/vms/vmsish.h b/vms/vmsish.h
index 34062b7..182758f 100644
--- a/vms/vmsish.h
+++ b/vms/vmsish.h
@@ -299,9 +299,11 @@
 struct interp_intern {
     int    hushed;
     float  inv_rand_max;
+    struct dsc$descriptor_s VMScmd;
 };
 #define VMSISH_HUSHED     (PL_sys_intern.hushed)
 #define MY_INV_RAND_MAX   (PL_sys_intern.inv_rand_max)
+#define VMSCMD            (PL_sys_intern.VMScmd)
 
 /* Flags for vmstrnenv() */
 #define PERL__TRNENV_SECURE 0x01