X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/30bf0fcde3f7e44f1ec7bcfc8253dfce8f81e8e6..86ef170717e1837a99bf7b80c26173219601180e:/word.plp

diff --git a/word.plp b/word.plp
index 9fa1aaa..64a093f 100644
--- a/word.plp
+++ b/word.plp
@@ -2,6 +2,7 @@
 
 if ($Request and $Request =~ m{\A([^/]+)}) {
 	my $page = "word/$1.plp";
+	utf8::downgrade($page); # unicode filename breaks contents encoding
 	if (-e $page) {
 		Include $page;
 		exit;
@@ -88,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$//;