From: Craig A. Berry <craigberry@mac.com>
Date: Tue, 25 Sep 2001 18:08:42 +0000 (-0500)
Subject: angle bracket filespec problem on VMS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=46112e174804584fc24d38cb46fafc2d960efc72;p=p5sagit%2Fp5-mst-13.2.git

angle bracket filespec problem on VMS
Message-Id: <5.1.0.14.0.20010925154848.036887d8@exchi01>

p4raw-id: //depot/perl@12217
---

diff --git a/vms/vms.c b/vms/vms.c
index c71f752..057cb84 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -2766,6 +2766,10 @@ static char *mp_do_fileify_dirspec(pTHX_ char *dir,char *buf,int ts)
       dir[--dirlen] = '\0';
       dir[dirlen-1] = ']';
     }
+    if (dirlen >= 2 && !strcmp(dir+dirlen-2,".>")) {
+      dir[--dirlen] = '\0';
+      dir[dirlen-1] = '>';
+    }
 
     if ((cp1 = strrchr(dir,']')) != NULL || (cp1 = strrchr(dir,'>')) != NULL) {
       /* If we've got an explicit filename, we can just shuffle the string. */
@@ -2988,6 +2992,7 @@ static char *mp_do_fileify_dirspec(pTHX_ char *dir,char *buf,int ts)
           else if (ts) New(1312,retspec,retlen+16,char);
           else retspec = __fileify_retbuf;
           cp1 = strstr(esa,"][");
+          if (!cp1) cp1 = strstr(esa,"]<");
           dirlen = cp1 - esa;
           memcpy(retspec,esa,dirlen);
           if (!strncmp(cp1+2,"000000]",7)) {