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

Fix behaviour when no cluster command defined

Browse source 
Also tidyup output to 'cssh -L' when no external clusters defined
This commit is contained in:
Duncan Ferguson 2014-08-10 10:36:22 +01:00
parent b374754129
commit f88353d3dd
6 changed files with 35 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lib/App/ClusterSSH.pm
View file

@ -3,7 +3,7 @@ package App::ClusterSSH;
use 5.008.004;
use warnings;
use strict;
use version; our $VERSION = version->new('4.03_01');
use version; our $VERSION = version->new('4.03_02');
use Carp;
@ -1945,8 +1945,11 @@ sub run {
print( 'Available cluster tags:', $/ );
print "\t", $_, $/ foreach ( sort( $self->cluster->list_tags ) );
print( 'Available external command tags:', $/ );
print "\t", $_, $/ foreach ( sort( $self->cluster->list_external_clusters ) );
my @external_clusters = $self->cluster->list_external_clusters;
if(@external_clusters) {
print( 'Available external command tags:', $/ );
print "\t", $_, $/ foreach ( sort( @external_clusters ) );
}
$self->debug(
4,