diff options
author | Craig A. Berry <craigberry@mac.com> | 2006-01-06 23:16:30 +0000 |
---|---|---|
committer | Craig A. Berry <craigberry@mac.com> | 2006-01-06 23:16:30 +0000 |
commit | fe219265a3e245c7bd278c260006830f46fe8c4b (patch) | |
tree | fe808297b7f90c9e9c63d800bd92ff5401a38e71 /configure.com | |
parent | 1f7178bde462a2026bbf5f9f113b1fcfd2289a87 (diff) | |
download | perl-fe219265a3e245c7bd278c260006830f46fe8c4b.tar.gz |
Make VMS manifest checker handle multi-dot filenames on ODS-5
p4raw-id: //depot/perl@26690
Diffstat (limited to 'configure.com')
-rw-r--r-- | configure.com | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/configure.com b/configure.com index 371d40dbd8..b280f3064a 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 $! |