projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
6f5df6b
)
Grab enough room from the outset in do_tovmsspec()
author
Craig A. Berry
<craigberry@mac.com>
Fri, 14 Oct 2005 15:31:33 +0000
(15:31 +0000)
committer
Craig A. Berry
<craigberry@mac.com>
Fri, 14 Oct 2005 15:31:33 +0000
(15:31 +0000)
p4raw-id: //depot/perl@25759
vms/vms.c
patch
|
blob
|
history
diff --git
a/vms/vms.c
b/vms/vms.c
index
f4a4ee8
..
ad14ddc
100644
(file)
--- 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]");
}