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

Fix use_all_a_records option

Browse source 
Thanks to Simon Fraser for reporting it with a patch
This commit is contained in:
Duncan Ferguson 2014-05-13 15:22:18 +01:00
parent 437b8c4867
commit f8723f2dce
2 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Changes
View file

@ -1,6 +1,7 @@
4.02_04 0000-00-00 Duncan Ferguson <duncan_ferguson@user.sf.net>
- Amend 'Changes' file format to match CPAN specs (see CPAN::Changes)
- Correct autoclose short option to what is actually sued (thanks to Simon Fraser)
- Correct autoclose short option to what is actually used (thanks to Simon Fraser)
- Fix 'use_all_a_records' option (thanks to Simon Fraser)
4.02_03 2014-01-31 Duncan Ferguson <duncan_ferguson@user.sf.net>
- Fix 'File->Show History' (Sf support request 41)

6
lib/App/ClusterSSH.pm
View file

@ -405,12 +405,14 @@ sub resolve_names(@) {
my $hostobj = gethostbyname($dirty);
if ( defined($hostobj) ) {
my @alladdrs = map { inet_ntoa($_) } @{ $hostobj->addr_list };
$self->cluster->register_tag( $dirty, @alladdrs );
if ( $#alladdrs > 0 ) {
$self->cluster->register_tag( $dirty, @alladdrs );
logmsg( 3, 'Expanded to ',
$self->cluster->get_tag($dirty) );
join(' ', $self->cluster->get_tag($dirty) ) );
@tag_list = $self->cluster->get_tag($dirty);
}
else {
# don't expand if there is only one record found
logmsg( 3, 'Only one A record' );
}
}