From: Dirk Koopman <djk@tobit.co.uk>
Date: Fri, 21 Jan 2022 18:45:17 +0000 (+0000)
Subject: fix console.pl max scroll depth
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=commitdiff_plain;h=eac4538f1f78b3d014539dc548fc6322e8337429

fix console.pl max scroll depth
---

diff --git a/perl/console.pl b/perl/console.pl
index b71d8a68..e828c405 100755
--- a/perl/console.pl
+++ b/perl/console.pl
@@ -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);