From f18127cced202704c0a9c13235ebc46b433012b6 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Thu, 5 Sep 2019 22:08:37 +0200
Subject: [PATCH] skip recalculation of unprogressed data

---
 graph | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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