X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/d22e7febda8720bc38069f7061adb43b98143c48..87d94e5fa2a28dac9f26632cc25a29fe088cb1e2:/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 "
Source of $href
";
+ PLP_START {
+ say "Source of $href
";
+ };
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 {