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

Merge from release_4_00

Browse source
This commit is contained in:
Duncan Ferguson 2011-07-08 12:56:28 +01:00
commit aa3c06b306
3 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Changes
View file

@ -1,6 +1,9 @@
????-??-?? Duncan Ferguson <duncan_ferguson@user.sf.net> - v4.01_00 ????-??-?? Duncan Ferguson <duncan_ferguson@user.sf.net> - v4.01_00
* Start switching code to use Exception::Class * Start switching code to use Exception::Class
2011-07-08 Duncan Ferguson <duncan_ferguson@user.sf.net> - v4.00_10
* Fix 'uninitialised error' message
2011-06-30 Duncan Ferguson <duncan_ferguson@user.sf.net> - v4.00_09 2011-06-30 Duncan Ferguson <duncan_ferguson@user.sf.net> - v4.00_09
* Cater for missing 'pod2text' command (Thanks to Sami Kerola) * Cater for missing 'pod2text' command (Thanks to Sami Kerola)
* Fix 'uninitialised variable' error * Fix 'uninitialised variable' error

4
META.yml
View file

@ -17,7 +17,7 @@ name: App-ClusterSSH
provides: provides:
App::ClusterSSH: App::ClusterSSH:
file: lib/App/ClusterSSH.pm file: lib/App/ClusterSSH.pm
version: 4.00_09 version: 4.00_10
App::ClusterSSH::Base: App::ClusterSSH::Base:
file: lib/App/ClusterSSH/Base.pm file: lib/App/ClusterSSH/Base.pm
version: 0.02 version: 0.02
@ -40,4 +40,4 @@ resources:
repository: repository:
- http://clusterssh.git.sourceforge.net/ - http://clusterssh.git.sourceforge.net/
- http://github.com/duncs/clusterssh - http://github.com/duncs/clusterssh
version: 4.00_09 version: 4.00_10

4
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.00_09'); use version; our $VERSION = version->new('4.01_00');
use Carp; use Carp;
@ -1097,7 +1097,7 @@ sub open_client_windows(@) {
$servers{$server}{username} = $username if ($username); $servers{$server}{username} = $username if ($username);
$servers{$server}{username} = $username || ''; $servers{$server}{username} = $username || '';
$servers{$server}{port} = $port || ''; $servers{$server}{port} = $port || '';
$servers{$server}{master} = $config{mstr}; $servers{$server}{master} = $config{mstr} || '';;
$servers{$server}{master} = $master if ($master); $servers{$server}{master} = $master if ($master);
logmsg( 2, "Working on server $server for $_" ); logmsg( 2, "Working on server $server for $_" );