[PATCH perl@13600] configure.com fixes

This has three small fixes for configure.com:

  o when checking the manifest, don't work around filenames with 
    multiple dots on volumes that can actually handle them -- otherwise 
    files appear to be missing

  o allow disabling IEEE math from command line using -"Uuseieee"

  o be more agressive about closing files that may have been opened during 
    configuration

--- configure.com;-0    Wed Dec  5 21:30:15 2001
+++ configure.com       Mon Dec 10 14:11:00 2001
@@ -507,6 +507,11 @@
 $!
 $       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 @@
 $   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 @@
 $ 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
[end of patch]

• [PATCH perl@13600] configure.com fixes by Craig A. Berry
• Re: [PATCH perl@13600] configure.com fixes by Jarkko Hietaniemi