X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fconsole.pl;h=e828c40574bcbc63c5c077bf4ddf2a67bb72373d;hb=eac4538f1f78b3d014539dc548fc6322e8337429;hp=13f2bfa1873ae9522068d427e217cc5e936c2a24;hpb=d8d7d25e92a56847754a237166ca926adc2199ca;p=spider.git

diff --git a/perl/console.pl b/perl/console.pl
index 13f2bfa1..e828c405 100755
--- a/perl/console.pl
+++ b/perl/console.pl
@@ -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
@@ -533,7 +533,7 @@ $SIG{__DIE__} = \&sig_term;
 
 $Text::Wrap::columns = $cols;
 $conn->send_later("A$call|$connsort width=$cols enhanced");
-$conn->send_later("I$call|set/page $maxshist");
+$conn->send_later("I$call|set/page " . ($maxshist-5));
 $conn->send_later("I$call|set/nobeep");
 
 #Msg->set_event_handler(\*STDIN, "read" => \&rec_stdin);