This is part of the patch previously submitted as part of a multi-part
patch.
This removes a trailing "." that results in ODS-5 mode when converting a
Unix "foo/bar" specification to be "[.foo]bar.".
This is incompatible with having setup_cmddsc searching for the
resulting binary by appending ".exe" or "." to the specification.
This allows the [.vms]test.com program to be run in the GNV/Unix
compatible mode in order to start validating Perl for it.
-John
[EMAIL PROTECTED]
Personal Opinion Only
--- /rsync_root/perl/vms/vms.c Wed Oct 22 19:26:20 2008
+++ vms/vms.c Wed Oct 29 21:52:12 2008
@@ -9892,6 +9892,19 @@
*cp2 = '\0';
if (do_tovmsspec(resspec,cp,0,NULL)) {
s = vmsspec;
+
+ /* When a UNIX spec with no file type is translated to VMS, */
+ /* A trailing '.' is appended under ODS-5 rules. */
+ /* Here we do not want that trailing "." as it prevents */
+ /* Looking for a implied ".exe" type. */
+ if (decc_efs_charset) {
+ int i;
+ i = strlen(vmsspec);
+ if (vmsspec[i-1] == '.') {
+ vmsspec[i-1] = '\0';
+ }
+ }
+
if (*rest) {
for (cp2 = vmsspec + strlen(vmsspec);
*rest && cp2 - vmsspec < sizeof vmsspec;