X-Git-Url: http://andersk.mit.edu/gitweb/gssapi-openssh.git/blobdiff_plain/2e490d1d848c9121cb1f2bd84f39b602490fa4b1..refs/heads/OPENSSH_4_3P2_HPN:/setup/setup-openssh.pl diff --git a/setup/setup-openssh.pl b/setup/setup-openssh.pl index 9faf25d..bf506c8 100644 --- a/setup/setup-openssh.pl +++ b/setup/setup-openssh.pl @@ -349,7 +349,7 @@ print "\n"; $response = query_boolean("Do you wish to continue with the setup package?","y"); -if ($response ne "y") +if ($response eq "n") { print "\n"; print "Okay.. exiting gsi_openssh setup.\n"; @@ -420,11 +420,24 @@ sub query_boolean $foo = ; ($bar) = split //, $foo; - if ($bar ne $nondefault) + if ( grep(/\s/, $bar) ) { + # this is debatable. all whitespace means 'default' + + $bar = $default; + } + elsif ($bar ne $default) + { + # everything else means 'nondefault'. + + $bar = $nondefault; + } + else + { + # extraneous step. to get here, $bar should be eq to $default anyway. + $bar = $default; } return $bar; } -