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 (file)
--- 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;