#
# 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 {
} elsif ($r eq KEY_PPAGE || $r eq "\032") {
if ($spos > 0) {
my ($i, $l);
- for ($i = 0; $i <= $pagel-1 && $spos >= 0; ) {
+ for ($i = 0; $i < $pagel-1 && $spos >= 0; ) {
$l = measure($shistory[$spos]);
$i += $l;
$spos-- if $i <= $pagel;