This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Handle a filename with a tilde in it. Otherwise the build dies
authorCraig A. Berry <craigberry@mac.com>
Thu, 23 Oct 2008 00:19:44 +0000 (00:19 +0000)
committerCraig A. Berry <craigberry@mac.com>
Thu, 23 Oct 2008 00:19:44 +0000 (00:19 +0000)
on Bar.pm~ at MANIFEST check time when building on an ODS-2 volume.

p4raw-id: //depot/perl@34561

configure.com

index 0e6e886..e78c46e 100644 (file)
@@ -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