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

diff --git a/source.plp b/source.plp
index 6d6057c..269e342 100644
--- a/source.plp
+++ b/source.plp
@@ -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 {