X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/d22e7febda8720bc38069f7061adb43b98143c48..cf5aaee63c5aa7eeae7e2e136e58e156841616a9:/source.plp

diff --git a/source.plp b/source.plp
index 6d6057c..72fdf82 100644
--- a/source.plp
+++ b/source.plp
@@ -55,10 +55,12 @@ 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{(?:/|^)\.}) {
-		die "File request not permitted\n";
+		Abort("File request not permitted", '403 source not allowed');
 	}
 	elsif ($source =~ s{::}{/}g or !-e $source) {
 		$source .= '.pm';
@@ -68,7 +70,7 @@ else {
 			last;
 		}
 	}
-	-r $source or die "Requested file not found\n";
+	-r $source or Abort("Requested file not found", '404 source not found');
 	my $size = (stat $source)->[7];
 
 	if (my $hl = eval {