Change 34561 by [EMAIL PROTECTED] on 2008/10/23 00:19:44
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.
Affected files ...
... //depot/perl/configure.com#286 edit
Differences ...
==== //depot/perl/configure.com#286 (text) ====
Index: perl/configure.com
--- perl/configure.com#285~34456~ 2008-10-03 09:19:55.000000000 -0700
+++ perl/configure.com 2008-10-22 17:19:44.000000000 -0700
@@ -553,6 +553,13 @@
$ 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
End of Patch.
