From fe219265a3e245c7bd278c260006830f46fe8c4b Mon Sep 17 00:00:00 2001 From: "Craig A. Berry" Date: Fri, 6 Jan 2006 23:16:30 +0000 Subject: [PATCH] Make VMS manifest checker handle multi-dot filenames on ODS-5 p4raw-id: //depot/perl@26690 --- configure.com | 2 ++ 1 file changed, 2 insertions(+) diff --git a/configure.com b/configure.com index 371d40d..b280f30 100644 --- a/configure.com +++ b/configure.com @@ -510,6 +510,8 @@ $ ELSE $ file_2_find = "[-]" + file_2_find $ ENDIF $! +$ tmp = f$parse(file_2_find + ";",,,,"SYNTAX_ONLY") +$ IF tmp .NES. "" THEN file_2_find = tmp $ dirname = F$EXTRACT(0,F$LOCATE("]",file_2_find),file_2_find) + "]" $ file_2_find = file_2_find - dirname $! -- 1.8.3.1