increase value length for newline substitution

[barcat.git] / barcat

diff --git a/barcat b/barcat
index cdb41dafce082c0afa399f98874f4891314c4e78..4cb2cd14ce69467cb6767f063100c6774cef328b 100755 (executable)
--- 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) = '…';