X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/ad4c42df6bd5c3e95a77b950de1458bce8939ec3..794501039f82344685f618163b157d3365dd963f:/vms/vms.c

diff --git a/vms/vms.c b/vms/vms.c
index 28dfa70..a82625d 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -127,6 +127,9 @@ 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