X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fconsole.pl;h=14c945a58987edabecd084078caf58eedca9ed38;hb=30788e921ae7fb6ca54f043d21f154bfd884dcc6;hp=977285dad1e1db43d60f215a7ee7d67c38c3c906;hpb=2f4355fb63f336cce61887b189d5556faf1734d7;p=spider.git

diff --git a/perl/console.pl b/perl/console.pl
index 977285da..14c945a5 100755
--- a/perl/console.pl
+++ b/perl/console.pl
@@ -252,8 +252,11 @@ sub rec_stdin
 			$pos++;
 			$lth++;
 		} elsif ($r eq "\014" || $r eq "\022") {
+			$top->touchwin();
+			$bot->touchwin();
 			$scr->touchwin();
 			$scr->refresh();
+			$top->refresh();
 		} elsif ($r eq "\013") {
 			$inbuf = substr($inbuf, 0, $pos);
 			$lth = length $inbuf;