From b1f9b4650ed8fdeb1e03834f076f3040ce65776a Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Sat, 11 Jul 2020 03:07:44 +0100 Subject: [PATCH] a more robust console.pl idle loop fix make all the comparisons 'eq' and check that RESIZE still works --- perl/console.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/perl/console.pl b/perl/console.pl index 78272aac..d01cd539 100755 --- 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; -- 2.43.0