X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fconsole.pl;h=b71d8a684a2a8207a72e0112990a71251023d4c3;hb=7e9852009e053721cb64d9c1c8c4f82457dac181;hp=8de22e8281cd3d6af835fadb875e860ae625e757;hpb=4b207544da78b182bd12e94eab01451694749012;p=spider.git

diff --git a/perl/console.pl b/perl/console.pl
index 8de22e82..b71d8a68 100755
--- a/perl/console.pl
+++ b/perl/console.pl
@@ -13,7 +13,7 @@
 #
 # 
 
-require 5.10.1;
+require 5.8.1;
 use warnings;
 
 use vars qw($data $clusteraddr $clusterport);
@@ -50,8 +50,8 @@ use Console;
 # initialisation
 #
 
-$clusteraddr //= '127.0.0.1';
-$clusterport //= 27754;
+$clusteraddr ||= '127.0.0.1';
+$clusterport ||= 27754;
 
 $call = "";                     # the callsign being used
 $node = "";                     # the node callsign being used
@@ -116,7 +116,7 @@ sub do_initscr
 	$mycallcolor = COLOR_PAIR(1) unless $mycallcolor;
 }
 
-sub do_resize
+sub doresize
 {
 	endwin() if $scr;
 	initscr();
@@ -527,7 +527,7 @@ unless ($DB::VERSION) {
 $SIG{'HUP'} = \&sig_term;
 
 # start up
-do_resize();
+doresize();
 
 $SIG{__DIE__} = \&sig_term;