Improve short callsign handling (eg K7A)

[spider.git] / perl / console.pl

diff --git a/perl/console.pl b/perl/console.pl
index 916f3f7501a73c632d7b78a833e03460e6255fdd..d98b95f8f18b5ef93b84ca8ee740193586d15820 100755 (executable)
--- a/perl/console.pl
+++ b/perl/console.pl
@@ -230,7 +230,7 @@ sub addtotop
                if ($inbuf =~ s/\x07+$//) {
                        beep();
                }
-               if (length $inbuf > $cols) {
+               if (length $inbuf >= $cols) {
                        $Text::Wrap::Columns = $cols;
                        push @shistory, wrap('',"\t", $inbuf);
                } else {