diff options
| author | Craig A. Berry <craigberry@mac.com> | 2004-03-20 15:51:45 -0600 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-03-21 13:12:53 +0000 |
| commit | 0f20d7dff4791320a87fca61a4e4d4bb7344f44c (patch) | |
| tree | 77738a765cbbd1ffe3ceeb73a67b39cc972f1043 /vms | |
| parent | 58a9d1fc4b9782cdc8aaf9dd6fdfa2736076b173 (diff) | |
| download | perl-0f20d7dff4791320a87fca61a4e4d4bb7344f44c.tar.gz | |
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
Diffstat (limited to 'vms')
| -rw-r--r-- | vms/vms.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -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; |