X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fconsole.pl;h=3fbc46fe64ab432169d125e1281c007b75a0b76a;hb=2f876d1acd6afe143f482da0749f292b9d869376;hp=6c93d5ff44aca8e762d6caddefbc8898624ab99d;hpb=74db48555c9a548e2ef49815234af3fc2b8ecd81;p=spider.git

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 {