From: Mischa POSLAWSKY <perl@shiar.org>
Date: Tue, 10 Sep 2019 19:57:14 +0000 (+0200)
Subject: increase value length for newline substitution
X-Git-Tag: v1.06~18
X-Git-Url: http://git.shiar.nl/barcat.git/commitdiff_plain/dc38ca198369f674b29911f761338aac420f2db6

increase value length for newline substitution

Off by one since inclusion of placeholders in commit v1.02-6-g05d1a75398
(2019-09-07) [value placeholder in contents].
---

diff --git a/barcat b/barcat
index cdb41da..4cb2cd1 100755
--- a/barcat
+++ b/barcat
@@ -112,7 +112,7 @@ while (readline) {
 		my $trimpos = abs $opt{trim};
 		$trimpos -= length $1 if $opt{unmodified};
 		if ($trimpos <= 1) {
-			$_ = substr $_, 0, 1;
+			$_ = substr $_, 0, 2;
 		}
 		elsif (length > $trimpos) {
 			substr($_, $trimpos - 1) = '…';