retain unsubstituted line contents

Fix length recalculation after interval.

diff --git a/graph b/graph
index fd49acfee092c438801bb21d332037534de0e041..d7c2834a20e24fb094a3d0f21546f632067e0336 100755 (executable)
--- 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;
        }
                $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++;
        print $barmark[$_] // '-' for 1 .. $size && (($values[$nr] || 0) - $minval) * $size;
        say '';
        $nr++;