From 409c90c0c170f9d91ffaa2c22a2fdaa878bd8cb1 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 7 Sep 2019 20:28:17 +0200
Subject: [PATCH] omit empty value statistics

---
 barcat | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/barcat b/barcat
index 4c3cf8a..600f453 100755
--- a/barcat
+++ b/barcat
@@ -181,11 +181,13 @@ if ($opt{stat}) {
 		$opt{hidemax} ||= @lines;
 		printf '%s of ', sum(@values[$opt{hidemin} - 1 .. $opt{hidemax} - 1]) // 0;
 	}
-	my $total = sum @order;
-	printf '%s total', $total;
-	printf ' in %d values', scalar @values;
-	printf ' (%s min, %*.*f avg, %s max)',
-		$order[-1], 0, 2, $total / @order, $order[0];
+	if (@order) {
+		my $total = sum @order;
+		printf '%s total', $total;
+		printf ' in %d values', scalar @values;
+		printf ' (%s min, %*.*f avg, %s max)',
+			$order[-1], 0, 2, $total / @order, $order[0];
+	}
 	say '';
 }
 
-- 
2.30.0