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

Fix test error

Browse source 
Fix test error on 5.8.8 (reported by Wei Wang)
Also add to TODO file
This commit is contained in:
Duncan Ferguson 2010-09-09 12:17:43 +01:00
parent 98b93d91f4
commit e2cc9a0863
5 changed files with 13 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Changes
View file

@ -1,4 +1,5 @@
????-??-?? Duncan Ferguson <duncan_ferguson@user.sf.net> - v4.01_01 ????-??-?? Duncan Ferguson <duncan_ferguson@user.sf.net> - v4.00_06
* Fix test error on 5.8.8 (reported by Wei Wang)
2010-06-20 Duncan Ferguson <duncan_ferguson@user.sf.net> - v4.00_05 2010-06-20 Duncan Ferguson <duncan_ferguson@user.sf.net> - v4.00_05

2
THANKS
View file

@ -34,3 +34,5 @@ Kristian Lyngstol
Mike Loseke Mike Loseke
Ian Marsh Ian Marsh
Roland Rosenfeld Roland Rosenfeld
Wei Wang
Markus Manzke

4
TODO
View file

@ -19,6 +19,10 @@ Getopts usage
Set up similar to Nagios::Plugin where Getopts::Long is subclassed Set up similar to Nagios::Plugin where Getopts::Long is subclassed
Sort out docs too Sort out docs too
Add in '-l' to list all available tags
Add in '-l <tag>' to list all hosts for the given tag
Idea from Markus Manzke
Change way commands generated Change way commands generated
============================= =============================

2
lib/App/ClusterSSH.pm
View file

@ -3,7 +3,7 @@ package App::ClusterSSH;
use 5.008.004; use 5.008.004;
use warnings; use warnings;
use strict; use strict;
use version; our $VERSION = version->new('4.01_01'); use version; our $VERSION = version->new('4.00_06');
use Carp; use Carp;

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

@ -4,7 +4,7 @@ use strict;
use warnings; use warnings;
use version; use version;
our $VERSION = version->new('0.02'); our $VERSION = version->new('0.03');
use Carp; use Carp;
@ -31,9 +31,9 @@ sub new {
if ( !%ssh_hostname_for || !$ssh_configs_read{ $self->{ssh_config} } ) { if ( !%ssh_hostname_for || !$ssh_configs_read{ $self->{ssh_config} } ) {
$ssh_configs_read{ $self->{ssh_config} } = 1; $ssh_configs_read{ $self->{ssh_config} } = 1;
if ( open( my $ssh_config_fh, '<', $self->{ssh_config} ) ) { if ( open( my $ssh_config_fh, '<', $self->{ssh_config} ) ) {
while ( my $_ = <$ssh_config_fh> ) { while ( my $line = <$ssh_config_fh> ) {
chomp $_; chomp $line;
next unless (m/^\s*host\s+(.*)/i); next unless ($line =~ m/^\s*host\s+(.*)/i);
# account for multiple declarations of hosts # account for multiple declarations of hosts
$ssh_hostname_for{$_} = 1 foreach ( split( /\s+/, $1 ) ); $ssh_hostname_for{$_} = 1 foreach ( split( /\s+/, $1 ) );