[blead-281-g6191341] vms.c backslash efs and long name fixes
[email protected] (John Malmberg)
| Newsgroups | perl.perl5.porters,perl.vmsperl |
|---|---|
| Message-ID | <[email protected]> |
Another day, another vms.c patch. 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. -John [email protected] Personal Opinion Only
vms_efs_slash.gdiff
(text/plain, 704 B)
--- /rsync_root/perl/vms/vms.c Tue Jan 6 22:53:09 2009
+++ vms/vms.c Wed Jan 7 18:46:33 2009
@@ -630,10 +630,11 @@
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 @@
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,