perl/vms/vms.c

9734     char **newargv, **oldargv;
9736     newargv = (char **) PerlMem_malloc(((*argcp)+2) * sizeof(char *));
9737     if (newargv == NULL) _ckvmssts_noperl(SS$_INSFMEM);
9738     newargv[0] = oldargv[0];
9739     newargv[1] = (char *)PerlMem_malloc(3 * sizeof(char));
9740     if (newargv[1] == NULL) _ckvmssts_noperl(SS$_INSFMEM);
9741     strcpy(newargv[1], "-T");
9742     Copy(&oldargv[1],&newargv[2],(*argcp)-1,char **);
9744     newargv[*argcp] = NULL;
9748     *argvp = newargv;