From dc38ca198369f674b29911f761338aac420f2db6 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Tue, 10 Sep 2019 21:57:14 +0200
Subject: [PATCH] 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].
---
 barcat | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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) = '…';
-- 
2.30.0