Change 13030 by jhi@alpha on 2001/11/15 22:03:46
VMSCMD synch attempt.
Affected files ...
.... //depot/perl/vms/vms.c#90 edit
.... //depot/perl/vms/vmsish.h#50 edit
Differences ...
==== //depot/perl/vms/vms.c#90 (text) ====
Index: perl/vms/vms.c
--- perl/vms/vms.c.~1~ Thu Nov 15 15:15:05 2001
+++ perl/vms/vms.c Thu Nov 15 15:15:05 2001
@@ -127,9 +127,6 @@
/* 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
==== //depot/perl/vms/vmsish.h#50 (text) ====
Index: perl/vms/vmsish.h
--- perl/vms/vmsish.h.~1~ Thu Nov 15 15:15:05 2001
+++ perl/vms/vmsish.h Thu Nov 15 15:15:05 2001
@@ -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
End of Patch.
