a more robust console.pl idle loop fix

make all the comparisons 'eq' and check that RESIZE still works

diff --git a/perl/console.pl b/perl/console.pl
index 78272aace8027843347d1c5d1c27dbd9e6d37494..d01cd5390e8a88af39b8324dfe67c76ecd66a999 100755 (executable)
--- a/perl/console.pl
+++ b/perl/console.pl
@@ -518,10 +518,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;