projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
cafedfc
)
fix Text::Wrap::columns typo in console.pl
author
Dirk Koopman
<djk@tobit.co.uk>
Mon, 6 Dec 2021 14:48:41 +0000
(14:48 +0000)
committer
Dirk Koopman
<djk@tobit.co.uk>
Mon, 6 Dec 2021 14:48:41 +0000
(14:48 +0000)
perl/console.pl
patch
|
blob
|
history
diff --git
a/perl/console.pl
b/perl/console.pl
index a0cb567175ec7f55b4380626e333311e1216ec6b..fad52b963e3b94121a3c677489c0d7b25e63698d 100755
(executable)
--- 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
{
# add a line to the end of the top screen
sub addtotop
{
- $Text::Wrap::Columns = $cols;
while (@_) {
my $inbuf = shift;
my $l = length $inbuf;
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) {
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;
push @sh, split /\n/, wrap('',' ' x 19, $inbuf);
} else {
push @sh, $inbuf;
@@
-610,7
+610,7
@@
doresize();
$SIG{__DIE__} = \&sig_term;
$SIG{__DIE__} = \&sig_term;
-
#$Text::Wrap::C
olumns = $cols;
+
$Text::Wrap::c
olumns = $cols;
my $lastmin = 0;
my $lastmin = 0;