add width changing dx display in console

[spider.git] / perl / console.pl

diff --git a/perl/console.pl b/perl/console.pl
index 78272aace8027843347d1c5d1c27dbd9e6d37494..14c95bac6b14505493d4891098c1a8b117187b7c 100755 (executable)
--- a/perl/console.pl
+++ b/perl/console.pl
@@ -134,6 +134,7 @@ sub doresize
        $inscroll = 0;
        $spos = @sh < $pagel ? 0 :  @sh - $pagel;
        show_screen();
+       $conn->send_later("C$call|$cols") if $conn;
 }
 
 # cease communications
@@ -518,10 +519,10 @@ sub idle_loop
        }
        my $ch = $bot->getch();         # this is here just to catch RESIZE events
        if (defined $ch) {
-               if ($ch =~ /^\d+$/ && $ch == KEY_RESIZE) {
+               if ($ch eq KEY_RESIZE) {
                        doresize();
                } else {
-                       rec_stdin($ch) unless $ch == '-1';
+                       rec_stdin($ch) unless $ch eq '-1';
                }
        }
        $top->refresh() if $top->is_wintouched;