From: Dirk Koopman Date: Mon, 6 Dec 2021 14:48:41 +0000 (+0000) Subject: fix Text::Wrap::columns typo in console.pl X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=4dfc1f60733b682dc1ac9724fd75395d1c41c62d;p=spider.git fix Text::Wrap::columns typo in console.pl --- diff --git a/perl/console.pl b/perl/console.pl index a0cb5671..fad52b96 100755 --- a/perl/console.pl +++ b/perl/console.pl @@ -469,7 +469,6 @@ sub rec_stdin # add a line to the end of the top screen sub addtotop { - $Text::Wrap::Columns = $cols; while (@_) { my $inbuf = shift; my $l = length $inbuf; @@ -477,6 +476,7 @@ sub addtotop if ($l > $cols) { $inbuf =~ s/\s+/ /g; if (length $inbuf > $cols) { + $Text::Wrap::columns = $cols; push @sh, split /\n/, wrap('',' ' x 19, $inbuf); } else { push @sh, $inbuf; @@ -610,7 +610,7 @@ doresize(); $SIG{__DIE__} = \&sig_term; -#$Text::Wrap::Columns = $cols; +$Text::Wrap::columns = $cols; my $lastmin = 0;