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

Run through 'perltidy -pbp'

Browse source
This commit is contained in:
Duncan Ferguson 2010-09-10 08:32:03 +01:00
parent 143b3db36c
commit 198c8bc2ab
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lib/App/ClusterSSH.pm
View file

@ -66,8 +66,8 @@ sub REAPER {
# Command line options list
my @options_spec = (
'debug:+',
'd', # backwards compatibility - DEPRECATED
'D', # backwards compatibility - DEPRECATED
'd', # backwards compatibility - DEPRECATED
'D', # backwards compatibility - DEPRECATED
'version|v',
'help|h|?',
'man|H',
@ -416,8 +416,8 @@ sub dump_config {
}
sub list_tags {
print('Available cluster tags:',$/);
print "\t", $_, $/ foreach (sort(keys(%clusters)));
print( 'Available cluster tags:', $/ );
print "\t", $_, $/ foreach ( sort( keys(%clusters) ) );
exit_prog;
}
@ -1009,9 +1009,9 @@ sub open_client_windows(@) {
my $server_object = App::ClusterSSH::Host->parse_host_string($_);
my $username=$server_object->get_username();
my $port=$server_object->get_port();
my $server=$server_object->get_hostname();
my $username = $server_object->get_username();
my $port = $server_object->get_port();
my $server = $server_object->get_hostname();
#my ( $username, $server, $port ) = split_hostname($_);
my $given_server_name = $server_object->get_givenname();