From 46112e174804584fc24d38cb46fafc2d960efc72 Mon Sep 17 00:00:00 2001 From: "Craig A. Berry" Date: Tue, 25 Sep 2001 13:08:42 -0500 Subject: [PATCH] angle bracket filespec problem on VMS Message-Id: <5.1.0.14.0.20010925154848.036887d8@exchi01> p4raw-id: //depot/perl@12217 --- vms/vms.c | 5 +++++ 1 file changed, 5 insertions(+) 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)) { -- 2.7.4