[blead-281-g6191341] vms.c backslash efs and long name fixes

[John Malmberg]

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
wb8...@gmail.com
Personal Opinion Only
--- /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,