Change 34565 by [EMAIL PROTECTED] on 2008/10/23 22:50:23
Integrate:
[ 34563]
Integrate:
[ 34561]
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/maint-5.8/perl/configure.com#64 integrate
Differences ...
==== //depot/maint-5.8/perl/configure.com#64 (text) ====
Index: perl/configure.com
--- perl/configure.com#63~33736~ 2008-04-23 15:01:52.000000000 -0700
+++ perl/configure.com 2008-10-23 15:50:23.000000000 -0700
@@ -552,6 +552,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.
