From: Mischa POSLAWSKY <perl@shiar.org>
Date: Thu, 5 Sep 2019 20:08:37 +0000 (+0200)
Subject: skip recalculation of unprogressed data
X-Git-Tag: v1.02~2
X-Git-Url: http://git.shiar.nl/barcat.git/commitdiff_plain/f18127cced202704c0a9c13235ebc46b433012b6?ds=sidebyside

skip recalculation of unprogressed data
---

diff --git a/graph b/graph
index e76ec64..c4ebd20 100755
--- a/graph
+++ b/graph
@@ -53,13 +53,13 @@ while (readline) {
 	}
 	push @lines, $_;
 }
-@lines or exit;
 
 $SIG{INT} = 'DEFAULT';
 
 sub show_lines {
 
 state $nr = 0;
+@lines and @lines > $nr or return;
 
 my @order  = sort { $b <=> $a } grep { length } @values;
 my $maxval = $order[0];