From: Mischa POSLAWSKY <perl@shiar.org>
Date: Mon, 1 Nov 2021 23:38:57 +0000 (+0100)
Subject: word: prevent infinite loops on invalid data
X-Git-Tag: v1.13~94
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/86ef170717e1837a99bf7b80c26173219601180e

word: prevent infinite loops on invalid data
---

diff --git a/word.plp b/word.plp
index d1c0241..64a093f 100644
--- a/word.plp
+++ b/word.plp
@@ -89,6 +89,7 @@ sub printimgs {
 	say '<ul>';
 	for my $row (@_) {
 		my ($id, $level, $title) = split /:/, $row, 3;
+		$id or die "empty reference"; # assertion to prevent loops
 		my @type;
 		push @type, 'parent' if defined $table->{$id};
 		push @type, 'large'  if $level =~ s/c$//;