amassivus/clusterssh
1
0
Fork 0
mirror of https://github.com/duncs/clusterssh.git synced 2025-07-03 01:43:25 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Make use of find_binary if not set in config

Browse source 
If comms command isnt set then find the path to the binary
This commit is contained in:
Duncan Ferguson 2011-11-17 22:51:54 +00:00
parent 70bfa5b1c6
commit 99b908a64f
2 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lib/App/ClusterSSH/Config.pm
View file

@ -86,6 +86,10 @@ sub new {
$self->{comms} = 'ssh';
}
if($self->{comms} && (! $self->{ $self->{comms} } || ! -e $self->{ $self->{comms} } ) ) {
$self->{ $self->{comms} } = $self->find_binary( $self->{ comms } );
}
$self->{title} = uc($Script);
return $self->validate_args(%args);

2
t/15config.t
View file

@ -56,6 +56,8 @@ Readonly::Hash my %default_config => {
terminal_decoration_height => 10,
terminal_decoration_width => 8,
ssh => '/usr/bin/ssh',
rsh_args => "",
telnet_args => "",
ssh_args => "",