From 2f876d1acd6afe143f482da0749f292b9d869376 Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Fri, 10 Dec 2021 23:53:57 +0000 Subject: [PATCH] fix enhanced mode in console.pl --- perl/console.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/perl/console.pl b/perl/console.pl index 6c93d5ff..3fbc46fe 100755 --- a/perl/console.pl +++ b/perl/console.pl @@ -245,7 +245,7 @@ sub addtotop if (length $inbuf > $cols) { $Text::Wrap::columns = $cols; my $token; - ($token) = $inbuf =~ m!^(.* de [-\w\d/\#]+\s+|\w{9}\@\d\d:\d\d:\d\d )!; + ($token) = $inbuf =~ m!^(.* de [-\w\d/\#]+:?\s+|\w{9}\@\d\d:\d\d:\d\d )!; $token ||= ' ' x 19; push @sh, split /\n/, wrap('', ' ' x length($token), $inbuf); } else { -- 2.43.0