Craig A. Berry [Fri, 23 Apr 2010 22:54:05 +0000 (17:54 -0500)]
Formerly it only worked if you went through all the questions
interactively and explicitly answered no.
$ bool_dflt = "y"
$ IF F$TYPE(useperlio) .NES. ""
$ then
-$ if f$extract(0,1,f$edit(useperlio,"collapse,upcase")) .eqs. "N" .or. useperlio .eqs. "undef" then bool_dflt = "n"
+$ if .not. useperlio .or. useperlio .eqs. "undef" then bool_dflt = "n"
$ endif
$ IF .NOT. silent
$ THEN