X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/cd726ba1120253b6387e1a558f36ba78f3cd8cbd..917ba679115b9e3cd7b88f7e5081a1a2503a684e:/source.plp

diff --git a/source.plp b/source.plp
index ef730a4..269e342 100644
--- a/source.plp
+++ b/source.plp
@@ -28,7 +28,7 @@ if ($source =~ s{(?<=\Q.inc.pl\E)/jsonp?$}{} and -r $source) {
 
 Html({
 	title => "$source source code",
-	version => '1.1',
+	version => '1.2',
 	description => !$source ? 'Index of source files for this site.' : [
 		"Source code of the $source file at this site,",
 		"with syntax highlighted and references linked."
@@ -58,7 +58,7 @@ else {
 	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 +68,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 {