From 27b0f197dfe91cc40555faa3bc7c2f48726dc22c Mon Sep 17 00:00:00 2001
From: cphillip <cphillip>
Date: Wed, 23 Jan 2002 14:03:27 +0000
Subject: [PATCH]  o Probs with syntax in action() subroutine.

---
 setup/setup-openssh.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/setup/setup-openssh.pl b/setup/setup-openssh.pl
index 62416aa..ab42805 100644
--- 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";
-- 
2.45.2