From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 7 Sep 2019 16:10:54 +0000 (+0200)
Subject: silence warnings on empty input
X-Git-Tag: v1.04~5
X-Git-Url: http://git.shiar.nl/barcat.git/commitdiff_plain/0d44d3beafcd2718b0b0742d90d4745d1e241e4f

silence warnings on empty input
---

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[$_] }