This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
null terminate command string -- broken in #27438
authorCraig A. Berry <craigberry@mac.com>
Sat, 11 Mar 2006 01:52:37 +0000 (01:52 +0000)
committerCraig A. Berry <craigberry@mac.com>
Sat, 11 Mar 2006 01:52:37 +0000 (01:52 +0000)
p4raw-id: //depot/perl@27467

vms/vms.c

index 82169ad..22c5809 100644 (file)
--- 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);