From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 21 Apr 2018 16:04:11 +0000 (+0200)
Subject: source: delay header output until after errors
X-Git-Tag: v1.12~80
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/d010615137911ff66a3e92a947eb4156593540af

source: delay header output until after errors
---

diff --git a/source.plp b/source.plp
index 269e342..72fdf82 100644
--- a/source.plp
+++ b/source.plp
@@ -55,7 +55,9 @@ if (not $source) {
 }
 else {
 	my $href = showlink($source, $source =~ m{\A (\w+) \.plp \z}x && "/$1");
-	say "<h1>Source of $href</h1>";
+	PLP_START {
+		say "<h1>Source of $href</h1>";
+	};
 
 	if ($source =~ m{(?:/|^)\.}) {
 		Abort("File request not permitted", '403 source not allowed');