cleanup superfluous hide checks in show_lines()
authorMischa POSLAWSKY <perl@shiar.org>
Wed, 29 Jan 2020 17:29:01 +0000 (18:29 +0100)
committerMischa POSLAWSKY <perl@shiar.org>
Sun, 16 Feb 2020 21:35:47 +0000 (22:35 +0100)
Existing code duplicated in commit v1.03-16-g62a8af4725 (2019-09-08)
[stat (-s) option to summarise totals at end].

barcat

diff --git a/barcat b/barcat
index 0d843c13e177580776d2b81e4556f38961c0b4e7..9e78016da65ae77b843d876d1702823a2052a5a2 100755 (executable)
--- a/barcat
+++ b/barcat
@@ -193,9 +193,8 @@ sub sival {
 sub show_lines {
 
 state $nr = $opt{hidemin};
-@lines and @lines > $nr or return;
 @lines or return;
-@lines > $nr or return unless $opt{hidemin};
+@lines > $nr or return;
 
 @order = sort { $b <=> $a } @order unless tied @order;
 my $maxval = $opt{maxval} // (
@@ -245,8 +244,6 @@ if ($opt{markers} and $size > 0) {
        }
 }
 
-@lines > $nr or return if $opt{hidemin};
-
 say(
        color(31), sprintf('%*s', $lenval, $minval),
        color(90), '-', color(36), '+',