From b29dcdaf1e0035054fb2ef216311abe6f6d28550 Mon Sep 17 00:00:00 2001
From: cphillip <cphillip>
Date: Wed, 14 Jan 2004 18:27:00 +0000
Subject: [PATCH 1/1]   o Change readable tests to present for when to link key
 files.

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

diff --git a/setup/setup-openssh.pl b/setup/setup-openssh.pl
index 4aee129..94482b6 100644
--- a/setup/setup-openssh.pl
+++ b/setup/setup-openssh.pl
@@ -640,7 +640,7 @@ sub determineKeys
         $mainkeyfile = "$localsshdir/$basekeyfile";
         $mainpubkeyfile = "$localsshdir/$basekeyfile.pub";
 
-        if ( isReadable($mainkeyfile) && isReadable($mainpubkeyfile) )
+        if ( isPresent($mainkeyfile) && isPresent($mainpubkeyfile) )
         {
             push(@$linklist, $basekeyfile);
             $count++;
@@ -897,7 +897,7 @@ sub linkFile
 {
     my($src, $dest) = @_;
 
-    if ( !isReadable($src) )
+    if ( !isPresent($src) )
     {
         debug1("$src is not readable... not creating $dest.\n");
         return;
-- 
2.45.2