Handle a filename with a tilde in it. Otherwise the build dies

on Bar.pm~ at MANIFEST check time when building on an ODS-2 volume.

p4raw-id: //depot/perl@34561

diff --git a/configure.com b/configure.com
index 0e6e886..e78c46e 100644 (file)
--- a/configure.com
+++ b/configure.com
@@ -553,6 +553,13 @@ $         basename = -
 $         found = F$SEARCH(dirname + basename)
 $         file_2_find = file_2_find + "," + basename
 $       ENDIF
+$       tildeloc = f$locate("~",basename)
+$       IF (found .EQS. "" .AND. tildeloc .LT. f$length(basename))
+$       THEN
+$         basename[tildeloc,1] := "_"
+$         found = F$SEARCH(dirname + basename)
+$         file_2_find = file_2_find + "," + basename
+$       ENDIF
 $       IF (found .EQS. "")
 $       THEN
 $         WRITE MISSING file_2_find