From e1677f5ff98c942aa9758da02b7d4336b3dfe46b Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 26 Nov 2022 14:21:36 +0100
Subject: [PATCH] apply hide limits in length calculation

---
 barcat              | 4 ++--
 t/t1503-partial.out | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/barcat b/barcat
index 431ed40..bf38f12 100755
--- a/barcat
+++ b/barcat
@@ -239,8 +239,8 @@ my $range = $maxval - $minval;
 $range &&= log $range if $opt{log};
 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[$_] }
-		0 .. min $#lines, $opt{hidemax} || ();  # left padding
+	max(map { length $values[$_] && length $lines[$_] } $nr .. $limit)
+	// 0;  # left padding
 my $size   = defined $opt{width} && $range &&
 	($opt{width} - $lenval - $len - !!$opt{indicators});  # bar multiplication
 
diff --git a/t/t1503-partial.out b/t/t1503-partial.out
index 2f913c5..d3965d7 100644
--- a/t/t1503-partial.out
+++ b/t/t1503-partial.out
@@ -1,3 +1,3 @@
 barcat -L1-2 input/aligned.txt
-  1           -------------
-  2 prepend   --------------------------
+  1         --------------
+  2 prepend ----------------------------
-- 
2.30.0