From aca2086a71b36985fbe6022c6ababb488d2446da Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 7 Sep 2019 01:26:20 +0200
Subject: [PATCH] retain unsubstituted line contents

Fix length recalculation after interval.
---
 graph | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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++;
-- 
2.30.0