checking now works a bit better

[spider.git] / perl / console.pl

diff --git a/perl/console.pl b/perl/console.pl
index 46e42ad1245806af65ea1b33f694a59c63dfca36..4d7040cf2374f9c97b58b76dd9484be131afbd9d 100755 (executable)
--- a/perl/console.pl
+++ b/perl/console.pl
@@ -368,7 +368,7 @@ sub rec_stdin
                        } else {
                                beep();
                        }
-               } elsif ($r ge ' ' && $r le '~') {
+               } elsif (is_pctext($r)) {
                        # move the top screen back to the bottom if you type something
                        if ($spos < @shistory) {
                                $spos = @shistory;