From: Mischa POSLAWSKY <perl@shiar.org>
Date: Fri, 6 Sep 2019 23:26:20 +0000 (+0200)
Subject: retain unsubstituted line contents
X-Git-Tag: v1.03~5
X-Git-Url: http://git.shiar.nl/barcat.git/commitdiff_plain/aca2086a71b36985fbe6022c6ababb488d2446da

retain unsubstituted line contents

Fix length recalculation after interval.
---

diff --git a/graph b/graph
index fd49acf..d7c2834 100755
--- a/graph
+++ b/graph
@@ -118,8 +118,8 @@ while ($nr <= $#lines) {
 		$val = sprintf "%*s", $lenval, $val;
 		$val = "\e[${color}m$val\e[0m" if $color;
 	}
-	$lines[$nr] =~ s/\n/$val/;
-	printf '%-*s', $len + length($val), $lines[$nr];
+	my $line = $lines[$nr] =~ s/\n/$val/r;
+	printf '%-*s', $len + length($val), $line;
 	print $barmark[$_] // '-' for 1 .. $size && (($values[$nr] || 0) - $minval) * $size;
 	say '';
 	$nr++;