diff options
| author | Craig A. Berry <craigberry@mac.com> | 2006-01-08 22:19:39 +0000 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2006-01-08 22:19:39 +0000 |
| commit | adb2331da0cf217c7f3bbc4b8bacb6e7d3bd0532 (patch) | |
| tree | 1f2fb520b21df8c5d5e8c0dea17a3f8766536330 /configure.com | |
| parent | 03156efbedd2f4b3e75f73557ee3ec377e85c61a (diff) | |
| download | perl-adb2331da0cf217c7f3bbc4b8bacb6e7d3bd0532.tar.gz | |
Grr. #26690 broke handling of old ODS-2 style names
on current versions of VMS
p4raw-id: //depot/perl@26744
Diffstat (limited to 'configure.com')
| -rw-r--r-- | configure.com | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/configure.com b/configure.com index 6b6a4082fd..11c085384d 100644 --- a/configure.com +++ b/configure.com @@ -510,8 +510,8 @@ $ ELSE $ file_2_find = "[-]" + file_2_find $ ENDIF $! -$ tmp = f$parse(file_2_find + ";",,,,"SYNTAX_ONLY") -$ IF tmp .NES. "" THEN file_2_find = tmp +$ tmp = F$PARSE(file_2_find + ";",,,,"SYNTAX_ONLY") +$ IF F$SEARCH(tmp) .NES. "" THEN file_2_find = tmp $ dirname = F$EXTRACT(0,F$LOCATE("]",file_2_find),file_2_find) + "]" $ file_2_find = file_2_find - dirname $! |