do_spawn() cleanup from Charles Lane.

[p5sagit/p5-mst-13.2.git] / vms / vmsish.h

diff --git a/vms/vmsish.h b/vms/vmsish.h
index 34062b7..182758f 100644 (file)
--- 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