diff --git a/Changes b/Changes index b6729db..2b44f7d 100644 --- a/Changes +++ b/Changes @@ -1,6 +1,9 @@ ????-??-?? Duncan Ferguson - v4.01_00 * Start switching code to use Exception::Class +2011-07-08 Duncan Ferguson - v4.00_10 +* Fix 'uninitialised error' message + 2011-06-30 Duncan Ferguson - v4.00_09 * Cater for missing 'pod2text' command (Thanks to Sami Kerola) * Fix 'uninitialised variable' error diff --git a/META.yml b/META.yml index 213bf98..c8a9215 100644 --- a/META.yml +++ b/META.yml @@ -17,7 +17,7 @@ name: App-ClusterSSH provides: App::ClusterSSH: file: lib/App/ClusterSSH.pm - version: 4.00_09 + version: 4.00_10 App::ClusterSSH::Base: file: lib/App/ClusterSSH/Base.pm version: 0.02 @@ -40,4 +40,4 @@ resources: repository: - http://clusterssh.git.sourceforge.net/ - http://github.com/duncs/clusterssh -version: 4.00_09 +version: 4.00_10 diff --git a/lib/App/ClusterSSH.pm b/lib/App/ClusterSSH.pm index 14f028e..be84e1c 100644 --- a/lib/App/ClusterSSH.pm +++ b/lib/App/ClusterSSH.pm @@ -3,7 +3,7 @@ package App::ClusterSSH; use 5.008.004; use warnings; use strict; -use version; our $VERSION = version->new('4.00_09'); +use version; our $VERSION = version->new('4.01_00'); use Carp; @@ -1097,7 +1097,7 @@ sub open_client_windows(@) { $servers{$server}{username} = $username if ($username); $servers{$server}{username} = $username || ''; $servers{$server}{port} = $port || ''; - $servers{$server}{master} = $config{mstr}; + $servers{$server}{master} = $config{mstr} || '';; $servers{$server}{master} = $master if ($master); logmsg( 2, "Working on server $server for $_" );