diff options
author | Craig A. Berry <craigberry@mac.com> | 2017-11-06 21:13:24 -0600 |
---|---|---|
committer | Craig A. Berry <craigberry@mac.com> | 2017-11-06 21:13:24 -0600 |
commit | c1b0c18109cc81e4f80e604efc1fa81f82885265 (patch) | |
tree | e8a2833f1256bdb9db96e4275e3efa048bd4faf7 | |
parent | f88b23d703fbfddd6a4558c86e56bfd96f4377a4 (diff) | |
download | perl-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.c | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -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); } |