From 23e68951924551498fcbd4c960cbe751e5dd9ccf Mon Sep 17 00:00:00 2001
From: "Craig A. Berry" <craigberry@mac.com>
Date: Fri, 14 Oct 2005 15:31:33 +0000
Subject: Grab enough room from the outset in do_tovmsspec()

p4raw-id: //depot/perl@25759
---
 vms/vms.c | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'vms')

diff --git a/vms/vms.c b/vms/vms.c
index f4a4ee81ae..ad14ddcd1f 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]");
       }
-- 
cgit v1.2.1