From f500f4b354f20cc91772c27ef9706b34311a44d5 Mon Sep 17 00:00:00 2001
From: Pragmatic Software <pragma78@gmail.com>
Date: Sat, 5 Jun 2021 13:37:49 -0700
Subject: [PATCH] LagChecker: Minor polish to cmd_lackcheck()

---
 PBot/LagChecker.pm | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

diff --git a/PBot/LagChecker.pm b/PBot/LagChecker.pm
index 33daaeb9..50cb9f18 100644
--- a/PBot/LagChecker.pm
+++ b/PBot/LagChecker.pm
@@ -78,21 +78,26 @@ sub cmd_lagcheck {
         my $lag_total = $elapsed;
         my $len       = @{$self->{lag_history}};
 
-        my $lagstring = "";
-        my $comma     = "";
+        my @entries;
 
         foreach my $entry (@{$self->{lag_history}}) {
             my ($send_time, $lag_result) = @$entry;
+
             $lag_total += $lag_result;
+
             my $ago = concise ago(gettimeofday - $send_time);
-            $lagstring .= $comma . "[$ago] " . sprintf "%.1f ms", $lag_result;
-            $comma = "; ";
+
+            push @entries, "[$ago] " . sprintf "%.1f ms", $lag_result;
         }
 
-        $lagstring .= $comma . "[waiting for pong] $elapsed";
+        push @entries, "[waiting for pong] $elapsed";
+
+        my $lagstring = join '; ', @entries;
 
         my $average = $lag_total / ($len + 1);
+
         $lagstring .= "; average: " . sprintf "%.1f ms", $average;
+
         return $lagstring;
     }