From 4dfc1f60733b682dc1ac9724fd75395d1c41c62d Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Mon, 6 Dec 2021 14:48:41 +0000
Subject: [PATCH] fix Text::Wrap::columns typo in console.pl

---
 perl/console.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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;
 
-- 
2.43.0