From: Craig A. Berry <craigberry@mac.com>
Date: Sat, 15 Feb 2003 12:29:03 +0000 (-0600)
Subject: arcane tainting bug in vms.c
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ec618cdf8cd188a382b8a5ab7751b8c7e9ef80c2;p=p5sagit%2Fp5-mst-13.2.git

arcane tainting bug in vms.c
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <3E4E86EF.8090609@mac.com>

p4raw-id: //depot/perl@18721
---

diff --git a/vms/vms.c b/vms/vms.c
index fe82ae7..53b2b37 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -4449,15 +4449,19 @@ vms_image_init(int *argcp, char ***argvp)
    * hasn't been allocated when vms_image_init() is called.
    */
   if (will_taint) {
-    char ***newap;
-    New(1320,newap,*argcp+2,char **);
-    newap[0] = argvp[0];
-    *newap[1] = "-T";
-    Copy(argvp[1],newap[2],*argcp-1,char **);
+    char **newargv, **oldargv;
+    oldargv = *argvp;
+    New(1320,newargv,(*argcp)+2,char *);
+    newargv[0] = oldargv[0];
+    New(1320,newargv[1],3,char);
+    strcpy(newargv[1], "-T");
+    Copy(&oldargv[1],&newargv[2],(*argcp)-1,char **);
+    (*argcp)++;
+    newargv[*argcp] = NULL;
     /* We orphan the old argv, since we don't know where it's come from,
      * so we don't know how to free it.
      */
-    *argcp++; argvp = newap;
+    *argvp = newargv;
   }
   else {  /* Did user explicitly request tainting? */
     int i;