Change 26690 by [EMAIL PROTECTED] on 2006/01/06 23:16:30
Make VMS manifest checker handle multi-dot filenames on ODS-5
Affected files ...
... //depot/perl/configure.com#222 edit
Differences ...
==== //depot/perl/configure.com#222 (text) ====
Index: perl/configure.com
--- perl/configure.com#221~26632~ 2006-01-03 19:43:20.000000000 -0800
+++ perl/configure.com 2006-01-06 15:16:30.000000000 -0800
@@ -510,6 +510,8 @@
$ 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
$!
End of Patch.
