diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-15 22:03:46 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-15 22:03:46 +0000 |
| commit | da63c68b5c5846782b25159ecdf311e839c9845b (patch) | |
| tree | 0c4ce6cc72e1cb547fe2e3fabe745ee0b1ddf25b | |
| parent | 079a94c4694d82f731ba90bda77d2675508b0f20 (diff) | |
| download | perl-da63c68b5c5846782b25159ecdf311e839c9845b.tar.gz | |
VMSCMD synch attempt.
p4raw-id: //depot/perl@13030
| -rw-r--r-- | vms/vms.c | 3 | ||||
| -rw-r--r-- | vms/vmsish.h | 2 |
2 files changed, 2 insertions, 3 deletions
@@ -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 34062b7a07..182758fa57 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 |