From: Dirk Koopman <djk@tobit.co.uk>
Date: Fri, 10 Dec 2021 23:53:57 +0000 (+0000)
Subject: fix enhanced mode in console.pl
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=2f876d1acd6afe143f482da0749f292b9d869376;p=spider.git

fix enhanced mode in console.pl
---

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 {