Last of the major perfname tweaks

diff --git a/check_postgres.pl b/check_postgres.pl
index 9a9967b2ed34399e248fdc45e199063327d642b7..2e70a37e7ba314a12a08369bfbfec99b821c7cb7 100755 (executable)
--- a/check_postgres.pl
+++ b/check_postgres.pl
@@ -7337,7 +7337,8 @@ sub check_wal_files {
             next;
         }
         my $msg = qq{$numfiles};
-        $db->{perf} .= " '$db->{host}'=$numfiles;$warning;$critical";
+        $db->{perf} .= sprintf '%s=%s;%s;%s',
+            perfname(msg('files')), $numfiles, $warning, $critical;
         if (length $critical and $numfiles > $critical) {
             add_critical $msg;
         }