From 2f876d1acd6afe143f482da0749f292b9d869376 Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
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.34.1