diff options
| author | John Malmberg <wb8tyw@gmail.com> | 2009-01-08 16:37:19 -0600 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2009-04-11 21:55:20 +0100 |
| commit | 1d82f045f27d59c4f61520efcb653a20b8965fbf (patch) | |
| tree | 4a55f7d01807e49093f6416fa4b038bcb936a8bd /vms | |
| parent | fb6d06f25b593b5c47f93dbc7dc6b9c32f623951 (diff) | |
| download | perl-1d82f045f27d59c4f61520efcb653a20b8965fbf.tar.gz | |
vms.c backslash efs and long name fixes
Message-id: <496552AF.7040702@gmail.com>
This fixes the support for the backslash in a file name as it shows up
in the ExtUtils tests.
Also the flag for rename to work on efs file specifications was
incorrectly the bit number instead of the mask value.
(cherry picked from commit 449de3c2d9bd4f128b1ac6f08de7d29326bc285d)
Diffstat (limited to 'vms')
| -rw-r--r-- | vms/vms.c | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -630,10 +630,11 @@ int utf8_flag; case ']': case '%': case '^': + case '\\': /* Don't escape again if following character is * already something we escape. */ - if (strchr(".~!#&\'`()+@{},;[]%^=_", *(inspec+1))) { + if (strchr(".~!#&\'`()+@{},;[]%^=_\\", *(inspec+1))) { *outspec = *inspec; *output_cnt = 1; return 1; @@ -5346,7 +5347,7 @@ Stat_t dst_st; flags = 0; #if !defined(__VAX) && defined(NAML$C_MAXRSS) - flags |= 2; /* LIB$M_FIL_LONG_NAMES */ + flags |= 4; /* LIB$M_FIL_LONG_NAMES (bit 2) */ #endif sts = lib$rename_file(&old_file_dsc, |