From 86ef170717e1837a99bf7b80c26173219601180e Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Tue, 2 Nov 2021 00:38:57 +0100
Subject: [PATCH] word: prevent infinite loops on invalid data

---
 word.plp | 1 +
 1 file changed, 1 insertion(+)

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$//;
-- 
2.30.0