fixed merge command

[spider.git] / perl / console.pl

diff --git a/perl/console.pl b/perl/console.pl
index 977285dad1e1db43d60f215a7ee7d67c38c3c906..14c945a58987edabecd084078caf58eedca9ed38 100755 (executable)
--- 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;