o Probs with syntax in action() subroutine.

diff --git a/setup/setup-openssh.pl b/setup/setup-openssh.pl
index 62416aa85e712df1d4c783986e874e8069b49c7d..ab42805a89f539ec97a865e93b84edbae447622d 100644 (file)
--- a/setup/setup-openssh.pl
+++ b/setup/setup-openssh.pl
@@ -53,7 +53,7 @@ $xauth_path = "/usr/bin/X11/xauth";
 
 sub action
 {
-    my $command = @_;
+    my ($command) = @_;
 
     printf "$command\n";
 
@@ -91,7 +91,8 @@ sub runkeygen
     if ( ! -d "${sysconfdir}" )
     {
         print "Could not find ${sysconfdir} directory... creating\n";
-        mkdir($sysconfdir, mode);
+        mkdir($sysconfdir, 16877);
+        # 16877 should be 755, or drwxr-xr-x
     }
 
     print "Generating ssh keys (if necessary)...\n";