projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
fix spurious == errors on console.pl input
[spider.git]
/
perl
/
console.pl
diff --git
a/perl/console.pl
b/perl/console.pl
index f7b0d5f4690e7b7edbefb6d3335bc540cd24d9c0..78272aace8027843347d1c5d1c27dbd9e6d37494 100755
(executable)
--- a/
perl/console.pl
+++ b/
perl/console.pl
@@
-518,7
+518,7
@@
sub idle_loop
}
my $ch = $bot->getch(); # this is here just to catch RESIZE events
if (defined $ch) {
- if ($ch == KEY_RESIZE) {
+ if ($ch =
~ /^\d+$/ && $ch =
= KEY_RESIZE) {
doresize();
} else {
rec_stdin($ch) unless $ch == '-1';