From 047b94d3cbb3efbfdd2a7b3600791cb0d7415709 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Sun, 27 Sep 2015 18:21:58 +0200 Subject: render_image: do not display overlong lines --- index.pl | 2 ++ 1 file changed, 2 insertions(+) (limited to 'index.pl') diff --git a/index.pl b/index.pl index 5e792aa..79c1470 100644 --- a/index.pl +++ b/index.pl @@ -496,6 +496,8 @@ sub render_image { my ( $line, $destination, $etr, undef ) = @{$d}; + $line = substr($line, 0, 4); + $png->draw_at( 0, $line ); $png->draw_at( 25, $destination ); -- cgit v1.2.3