Change 34666 by [EMAIL PROTECTED] on 2008/10/30 15:21:56
Subject: [EMAIL PROTECTED] vms.c setup_cmddsc
From: "John E. Malmberg" <[EMAIL PROTECTED]>
Message-id: <[EMAIL PROTECTED]>
Date: Wed, 29 Oct 2008 22:02:43 -0500
Remove trailing dot when efs_charset is in effect.
Affected files ...
... //depot/perl/vms/vms.c#230 edit
Differences ...
==== //depot/perl/vms/vms.c#230 (text) ====
Index: perl/vms/vms.c
--- perl/vms/vms.c#229~34562~ 2008-10-22 17:26:03.000000000 -0700
+++ perl/vms/vms.c 2008-10-30 08:21:56.000000000 -0700
@@ -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;
End of Patch.
