diff options
| author | Craig A. Berry <craigberry@mac.com> | 2001-12-10 08:40:20 -0600 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-10 19:52:01 +0000 |
| commit | 17d0565f9ef9f25d30c0f88552d7867e9430e0a5 (patch) | |
| tree | e3fb9d065366997918cdf35e6c27a191c940f8b1 /configure.com | |
| parent | c21fb2b8c48331d89b906fb965cfe30006323e4e (diff) | |
| download | perl-17d0565f9ef9f25d30c0f88552d7867e9430e0a5.tar.gz | |
configure.com fixes
Message-Id: <5.1.0.14.2.20011210142528.01aff2e8@exchi01>
p4raw-id: //depot/perl@13602
Diffstat (limited to 'configure.com')
| -rw-r--r-- | configure.com | 17 |
1 files changed, 14 insertions, 3 deletions
diff --git a/configure.com b/configure.com index 98e586756a..d58093d4f9 100644 --- a/configure.com +++ b/configure.com @@ -507,6 +507,11 @@ $ ENDIF $! $ dirname = F$EXTRACT(0,F$LOCATE("]",file_2_find),file_2_find) + "]" $ file_2_find = file_2_find - dirname +$! +$! may not need double dot check on ODS-5 volumes +$ found = F$SEARCH(dirname + file_2_find) +$ IF found .NES. "" THEN GOTO Read_loop_manifest +$! $ dots = 0 $Dot_loop: $ dot_ele = F$ELEMENT(dots,".",file_2_find) @@ -2375,7 +2380,12 @@ $ echo "the IEEE math option." $ bool_dflt = use_ieee_math $ if f$type(useieee) .nes. "" $ then -$ if useieee .or. useieee .eqs. "define" then bool_dflt="y" +$ if useieee .or. useieee .eqs. "define" +$ then +$ bool_dflt="y" +$ else +$ bool_dflt="n" +$ endif $ endif $ rp = "Use IEEE math? [''bool_dflt'] " $ GOSUB myread @@ -6258,12 +6268,13 @@ $ DELETE/NOLOG/NOCONFIRM config.msg; $ ENDIF $! $Clean_up: +$ SET NOON $ IF (silent) $ THEN +$ CLOSE/NOLOG STDOUT $ DEASSIGN SYS$OUTPUT -$! DEASSIGN SYS$ERROR $ ENDIF -$ IF F$GETJPI("","FILCNT").GT.vms_filcnt THEN CLOSE CONFIG +$ CLOSE/NOLOG CONFIG $ IF F$GETJPI("","FILCNT").GT.vms_filcnt $ THEN WRITE SYS$ERROR "%Config-W-VMS, WARNING: There is a file still open" $ ENDIF |