#
# Copyright (c) 1999 Dirk Koopman G1TLH
#
-# $Id$
+#
#
require 5.004;
if ($inbuf =~ s/\x07+$//) {
beep();
}
- if (length $inbuf > $cols) {
+ if (length $inbuf >= $cols) {
$Text::Wrap::Columns = $cols;
push @shistory, wrap('',"\t", $inbuf);
} else {