o Force a mkdir on the path to the setup files in globus location

[gssapi-openssh.git] / setup / setup-openssh.pl

diff --git a/setup/setup-openssh.pl b/setup/setup-openssh.pl
index 9faf25d487326cec9ac511dbc7adc333cc65bc8b..bf506c83c01a08f03746073b74b7463b8adbb451 100644 (file)
--- 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 = <STDIN>;
     ($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;
 }
-