git.shiar.nl
/
barcat.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
8ad843b
)
silence warnings on empty input
author
Mischa POSLAWSKY
<perl@shiar.org>
Sat, 7 Sep 2019 16:10:54 +0000
(18:10 +0200)
committer
Mischa POSLAWSKY
<perl@shiar.org>
Sun, 8 Sep 2019 13:57:09 +0000
(15:57 +0200)
barcat
patch
|
blob
|
history
diff --git
a/barcat
b/barcat
index 785df753eb73b8354f941ac6ae639afdeafa87de..2c1104871194a4ae25395113c6a215599ddcf112 100755
(executable)
--- 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;
@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[$_] }
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[$_] }