Fix uninitialised error message

This commit is contained in:
Duncan Ferguson 2011-07-08 12:42:48 +01:00
parent f1e6348160
commit 4c81e20ae2
2 changed files with 5 additions and 2 deletions

View file

@ -1,3 +1,6 @@
????-??-?? 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
* Cater for missing 'pod2text' command (Thanks to Sami Kerola)
* Fix 'uninitialised variable' error

View file

@ -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.00_10');
use Carp;
@ -1099,7 +1099,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 $_" );