Change 34563 by [EMAIL PROTECTED] on 2008/10/23 20:49:57
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.10/perl/configure.com#10 integrate
Differences ...
==== //depot/maint-5.10/perl/configure.com#10 (text) ====
Index: perl/configure.com
--- perl/configure.com#9~33955~ 2008-05-30 18:54:46.000000000 -0700
+++ perl/configure.com 2008-10-23 13:49:57.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.
