generic-library/curl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

improve displaylogcontent() sub fixing a warning

Browse Source
This commit is contained in:
Yang Tse 2010-01-21 14:25:41 +00:00
parent 2f9a17fc44
commit 4a349f7a54
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
tests/runtests.pl
View File

@ -3683,10 +3683,17 @@ sub displaylogcontent {
$truncate = $linecount > 1000; $truncate = $linecount > 1000;
} }
} }
if (@tail) { if(@tail) {
logmsg "=== File too long: lines here were removed\n"; my $tailshow = 200;
# This won't work properly if time stamps are enabled in logmsg my $tailskip = 0;
logmsg join('',@tail[$#tail-200..$#tail]); 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); close(SINGLE);
} }