From: Craig A. Berry <craigberry@mac.com>
Date: Fri, 6 Jan 2006 23:16:30 +0000 (+0000)
Subject: Make VMS manifest checker handle multi-dot filenames on ODS-5
X-Git-Tag: perl-5.9.3~181
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/fe219265a3e245c7bd278c260006830f46fe8c4b?ds=sidebyside

Make VMS manifest checker handle multi-dot filenames on ODS-5

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

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
 $!