summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorCraig A. Berry <craigberry@mac.com>2017-11-06 21:13:24 -0600
committerCraig A. Berry <craigberry@mac.com>2017-11-06 21:13:24 -0600
commitc1b0c18109cc81e4f80e604efc1fa81f82885265 (patch)
treee8a2833f1256bdb9db96e4275e3efa048bd4faf7
parentf88b23d703fbfddd6a4558c86e56bfd96f4377a4 (diff)
downloadperl-c1b0c18109cc81e4f80e604efc1fa81f82885265.tar.gz
Two fix-ups following b59bf0b288.
In one case, memEQs was missing a length parameter, and in the other, two opening braces had been removed but only one closing brace.
-rw-r--r--vms/vms.c3
1 files changed, 1 insertions, 2 deletions
diff --git a/vms/vms.c b/vms/vms.c
index 72cf4d6351..d2d9308290 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -7246,7 +7246,7 @@ int_tounixspec(const char *spec, char *rslt, int * utf8_fl)
if (*(cp2+1) == ']' || *(cp2+1) == '>') {
while (*(cp2+1) == ']' || *(cp2+1) == '>' ||
*(cp2+1) == '[' || *(cp2+1) == '<') cp2++;
- if (memEQs(cp2,"[000000") && (*(cp2+7) == ']' ||
+ if (memEQs(cp2,7,"[000000") && (*(cp2+7) == ']' ||
*(cp2+7) == '>' || *(cp2+7) == '.')) cp2 += 7;
}
else if ( *(cp2+1) == '.' && *(cp2+2) == '.') {
@@ -7996,7 +7996,6 @@ posix_to_vmsspec_hardway(char *vmspath, int vmspath_len, const char *unixpath,
sts = slash_dev_special_to_vms(unixptr, vmspath, vmspath_len);
if (sts == SS$_NORMAL)
return SS$_NORMAL;
- }
}
sts = posix_root_to_vms(esa, vmspath_len, vmspath, utf8_fl);
}