From 0d44d3beafcd2718b0b0742d90d4745d1e241e4f Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 7 Sep 2019 18:10:54 +0200
Subject: [PATCH] silence warnings on empty input

---
 barcat | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/barcat b/barcat
index 785df75..2c11048 100755
--- a/barcat
+++ b/barcat
@@ -102,8 +102,8 @@ state $nr = $opt{hidemin} ? $opt{hidemin} - 1 : 0;
 @lines > $nr or return unless $opt{hidemin};
 
 @order  = sort { $b <=> $a } grep { length } @values;
-my $maxval = $opt{hidemax} ? max @values[0 .. $opt{hidemax} - 1] : $order[0];
-my $minval = min $order[-1], 0;
+my $maxval = ($opt{hidemax} ? max grep { length } @values[0 .. $opt{hidemax} - 1] : $order[0]) // 0;
+my $minval = min $order[-1] // (), 0;
 my $lenval = $opt{'value-length'} // max map { length } @order;
 my $len    = defined $opt{trim} && $opt{trim} <= 0 ? -$opt{trim} + 1 :
 	max map { length $values[$_] && length $lines[$_] }
-- 
2.30.0