From 4a349f7a540a4d45e5e0503be887c52192dce51f Mon Sep 17 00:00:00 2001 From: Yang Tse Date: Thu, 21 Jan 2010 14:25:41 +0000 Subject: [PATCH] improve displaylogcontent() sub fixing a warning --- tests/runtests.pl | 15 +++++++++++---- 1 file changed, 11 insertions(+), 4 deletions(-) diff --git a/tests/runtests.pl b/tests/runtests.pl index 2a39715f6..2660a4ac3 100755 --- a/tests/runtests.pl +++ b/tests/runtests.pl @@ -3683,10 +3683,17 @@ sub displaylogcontent { $truncate = $linecount > 1000; } } - if (@tail) { - logmsg "=== File too long: lines here were removed\n"; - # This won't work properly if time stamps are enabled in logmsg - logmsg join('',@tail[$#tail-200..$#tail]); + if(@tail) { + my $tailshow = 200; + my $tailskip = 0; + my $tailtotal = scalar @tail; + if($tailtotal > $tailshow) { + $tailskip = $tailtotal - $tailshow; + logmsg "=== File too long: $tailskip lines omitted here\n"; + } + for($tailskip .. $tailtotal-1) { + logmsg "$tail[$_]"; + } } close(SINGLE); }