From: Craig A. Berry <craigberry@mac.com>
Date: Fri, 14 Oct 2005 15:31:33 +0000 (+0000)
Subject: Grab enough room from the outset in do_tovmsspec()
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=23e68951924551498fcbd4c960cbe751e5dd9ccf;p=p5sagit%2Fp5-mst-13.2.git

Grab enough room from the outset in do_tovmsspec()

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

diff --git a/vms/vms.c b/vms/vms.c
index f4a4ee8..ad14ddc 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -4370,7 +4370,7 @@ static char *mp_do_tovmsspec(pTHX_ const char *path, char *buf, int ts) {
 
   if (path == NULL) return NULL;
   if (buf) rslt = buf;
-  else if (ts) Newx(rslt,strlen(path)+9,char);
+  else if (ts) Newx(rslt,NAM$C_MAXRSS+1,char);
   else rslt = __tovmsspec_retbuf;
   if (strpbrk(path,"]:>") ||
       (dirend = strrchr(path,'/')) == NULL) {
@@ -4402,7 +4402,6 @@ static char *mp_do_tovmsspec(pTHX_ const char *path, char *buf, int ts) {
 
     while (*(cp2+1) == '/') cp2++;  /* Skip multiple /s */
     if (!*(cp2+1)) {
-      if (!buf & ts) Renew(rslt,18,char);
       if (decc_disable_posix_root) {
 	strcpy(rslt,"sys$disk:[000000]");
       }