From: Craig A. Berry <craigberry@mac.com>
Date: Sat, 20 Mar 2004 21:51:45 +0000 (-0600)
Subject: fix memory bug in vms.c:mp_do_tounixspec
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0f20d7dff4791320a87fca61a4e4d4bb7344f44c;p=p5sagit%2Fp5-mst-13.2.git

fix memory bug in vms.c:mp_do_tounixspec
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <405D1151.3040308@mac.com>

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

diff --git a/vms/vms.c b/vms/vms.c
index 1bbc960..03f2fbd 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -3635,7 +3635,8 @@ static char *mp_do_tounixspec(pTHX_ char *spec, char *buf, int ts)
 {
   static char __tounixspec_retbuf[NAM$C_MAXRSS+1];
   char *dirend, *rslt, *cp1, *cp2, *cp3, tmp[NAM$C_MAXRSS+1];
-  int devlen, dirlen, retlen = NAM$C_MAXRSS+1, expand = 0;
+  int devlen, dirlen, retlen = NAM$C_MAXRSS+1;
+  int expand = 1; /* guarantee room for leading and trailing slashes */
   unsigned short int trnlnm_iter_count;
 
   if (spec == NULL) return NULL;