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

Fix perltidy test

Browse source
This commit is contained in:
Duncan Ferguson 2017-03-16 22:30:41 +00:00
parent 3e3ed2c1cc
commit 7a08f3239e
1 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/App/ClusterSSH/Host.pm
View file

@ -40,7 +40,8 @@ sub new {
$self->read_ssh_file( $self, $self->{ssh_config} ); $self->read_ssh_file( $self, $self->{ssh_config} );
$self->debug( 5, 'Have the following ssh hostnames' ); $self->debug( 5, 'Have the following ssh hostnames' );
$self->debug( 5, ' "', $_, '"' ) foreach ( sort keys %ssh_hostname_for ); $self->debug( 5, ' "', $_, '"' )
foreach ( sort keys %ssh_hostname_for );
} }
return $self; return $self;
@ -70,8 +71,7 @@ sub read_ssh_file($$) {
close($ssh_config_fh); close($ssh_config_fh);
} }
else { else {
$self->debug( 3, 'Unable to read ', $self->debug( 3, 'Unable to read ', $filename, ': ', $!, $/ );
$filename, ': ', $!, $/ );
} }
} }