From b011c7bd39d14e47dbc58c5c24b1aec8c961a3d9 Mon Sep 17 00:00:00 2001
From: "Craig A. Berry" <craigberry@mac.com>
Date: Sat, 11 Mar 2006 01:52:37 +0000
Subject: null terminate command string -- broken in #27438

p4raw-id: //depot/perl@27467
---
 vms/vms.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'vms/vms.c')

diff --git a/vms/vms.c b/vms/vms.c
index 82169ad50e..22c58094b6 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -8546,9 +8546,9 @@ setup_cmddsc(pTHX_ const char *incmd, int check_img, int *suggest_quote,
   /* It's either a DCL command or we couldn't find a suitable image */
   vmscmd->dsc$w_length = strlen(cmd);
 
-  vmscmd->dsc$a_pointer = PerlMem_malloc(vmscmd->dsc$w_length);
+  vmscmd->dsc$a_pointer = PerlMem_malloc(vmscmd->dsc$w_length + 1);
   strncpy(vmscmd->dsc$a_pointer,cmd,vmscmd->dsc$w_length);
-  vmscmd->dsc$a_pointer[vmscmd->dsc$w_length];
+  vmscmd->dsc$a_pointer[vmscmd->dsc$w_length] = 0;
 
   PerlMem_free(cmd);
 
-- 
cgit v1.2.1