From: Yang Tse <yangsita@gmail.com>
Date: Thu, 21 Jan 2010 14:25:41 +0000 (+0000)
Subject: improve displaylogcontent() sub fixing a warning
X-Git-Tag: curl-7_20_0~108
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=4a349f7a540a4d45e5e0503be887c52192dce51f;p=curl

improve displaylogcontent() sub fixing a warning
---

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);
     }