add width changing dx display in console

[spider.git] / perl / console.pl

diff --git a/perl/console.pl b/perl/console.pl
index d01cd5390e8a88af39b8324dfe67c76ecd66a999..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