This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix -Uuseperlio command-line option in configure.com.
authorCraig A. Berry <craigberry@mac.com>
Fri, 23 Apr 2010 22:54:05 +0000 (17:54 -0500)
committerCraig A. Berry <craigberry@mac.com>
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.

configure.com

index 0fce752..721b889 100644 (file)
@@ -3053,7 +3053,7 @@ $!
 $ 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