render_image: do not display overlong lines

1 files changed, 2 insertions, 0 deletions

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 );