From: Craig A. Berry <craigberry@mac.com>
Date: Thu, 23 Oct 2008 00:19:44 +0000 (+0000)
Subject: Handle a filename with a tilde in it.  Otherwise the build dies
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1bae32dbd424ceb6a38c45cad34e4ad65c83b682;p=p5sagit%2Fp5-mst-13.2.git

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