From c33a3b96f3dacfd49694d051125f0d60ffc568d3 Mon Sep 17 00:00:00 2001 From: Florian Weimer Date: Tue, 20 May 2008 21:42:50 +0200 Subject: [PATCH] Use one ssh-keyscan invocation to gather host keys --- dowkd.in | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/dowkd.in b/dowkd.in index 605080f..e4ba30a 100644 --- a/dowkd.in +++ b/dowkd.in @@ -406,9 +406,8 @@ sub from_ssh_host ($@) { @addrs > 0; } @names; - my @lines; - push @lines, safe_backtick qw/ssh-keyscan -t rsa -p/, $port, @names; - push @lines, safe_backtick qw/ssh-keyscan -t dsa -p/, $port, @names; + my @lines= safe_backtick qw/ssh-keyscan -t/, 'rsa1,rsa,dsa', '-p', + $port, @names; my $tmp = new File::Temp; for my $line (@lines) { -- 2.11.4.GIT