diff options
Diffstat (limited to 'vms/vms.c')
-rw-r--r-- | vms/vms.c | 16 |
1 files changed, 11 insertions, 5 deletions
@@ -6130,9 +6130,11 @@ int_fileify_dirspec(const char *dir, char *buf, int *utf8_fl) /* We've picked up everything up to the directory file name. Now just add the type and version, and we're set. */ if ((!decc_efs_case_preserve) && vms_process_case_tolerant) - strcat(buf,".dir;1"); + strcat(buf,".dir"); else - strcat(buf,".DIR;1"); + strcat(buf,".DIR"); + if (!decc_filename_unix_no_version) + strcat(buf,";1"); PerlMem_free(trndir); PerlMem_free(vmsdir); return buf; @@ -8298,7 +8300,6 @@ static char *int_tovmsspec int no_type_seen; char * v_spec, * r_spec, * d_spec, * n_spec, * e_spec, * vs_spec; int sts, v_len, r_len, d_len, n_len, e_len, vs_len; - size_t all_nums; if (vms_debug_fileify) { if (path == NULL) @@ -8705,12 +8706,17 @@ static char *int_tovmsspec break; case ';': /* If it doesn't look like the beginning of a version number, + * or we've been promised there are no version numbers, then * escape it. */ - all_nums = strspn(cp2+1, "0123456789"); - if (all_nums > 5 || *(cp2 + all_nums + 1) != '\0') { + if (decc_filename_unix_no_version) { *(cp1++) = '^'; } + else { + size_t all_nums = strspn(cp2+1, "0123456789"); + if (all_nums > 5 || *(cp2 + all_nums + 1) != '\0') + *(cp1++) = '^'; + } *(cp1++) = *(cp2++); break; default: |