X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fconsole.pl;h=32c6cf5f109d9e2cd6911d5ece1ebe6634640b27;hb=c7abd10080945488d7ea9d850aba2a8b565b4c57;hp=7e725029b0fb79919dcf7dfda141aef98b2f3602;hpb=625db73c7b7d1e3b8269503df195e932d0dedb4f;p=spider.git

diff --git a/perl/console.pl b/perl/console.pl
index 7e725029..32c6cf5f 100755
--- a/perl/console.pl
+++ b/perl/console.pl
@@ -27,8 +27,6 @@ BEGIN {
 	$is_win = ($^O =~ /^MS/ || $^O =~ /^OS-2/) ? 1 : 0; # is it Windows?
 }
 
-$clusteraddr = '127.0.0.1';
-$clusterport = 27754;
 
 use Mojo::IOLoop;
 
@@ -51,6 +49,9 @@ use Console;
 # initialisation
 #
 
+$clusteraddr //= '127.0.0.1';
+$clusterport //= 27754;
+
 $call = "";                     # the callsign being used
 $node = "";                     # the node callsign being used
 $conn = 0;                      # the connection object for the cluster