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

Improve test coverage

Browse source
This commit is contained in:
Duncan Ferguson 2017-12-27 16:35:35 +00:00
parent c807b52129
commit f27c42c795
2 changed files with 23 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lib/App/ClusterSSH.pm
View file

@ -261,7 +261,7 @@ sub resolve_names(@) {
if ( $self->config->{unique_servers} ) {
$self->debug( 3, 'removing duplicate server names' );
@servers = remove_repeated_servers(@servers);
@servers = $self->remove_repeated_servers(@servers);
}
$self->debug( 3, 'leaving with ', $_ ) foreach (@servers);
@ -270,7 +270,8 @@ sub resolve_names(@) {
}
sub remove_repeated_servers {
my %all = ();
my $self = shift;
my %all = ();
@all{@_} = 1;
return ( keys %all );
}