diff options
| author | Craig A. Berry <craigberry@mac.com> | 2008-10-23 00:19:44 +0000 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2008-10-23 00:19:44 +0000 |
| commit | 1bae32dbd424ceb6a38c45cad34e4ad65c83b682 (patch) | |
| tree | b329fa0e8acb16eaac926cefedccb4f7f74bf927 /configure.com | |
| parent | fd7af155115de4fb7c4275b6a5e511e513d5586e (diff) | |
| download | perl-1bae32dbd424ceb6a38c45cad34e4ad65c83b682.tar.gz | |
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
Diffstat (limited to 'configure.com')
| -rw-r--r-- | configure.com | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/configure.com b/configure.com index 0e6e8865b7..e78c46eb44 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 |