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-Url: http://git.shiar.net/barcat.git/commitdiff_plain/bf066b0f0a9039972705713dce09c0bc5f39e29f

increase value length for newline substitution
---

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