X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/618117fd1a97ad4550b3316a980e2ffcca4e409c..41df7258842a3bdfbf6ed51ba5ff4d077e7bad5f:/source.plp diff --git a/source.plp b/source.plp index 358bf84..d7d7cb5 100644 --- a/source.plp +++ b/source.plp @@ -29,7 +29,7 @@ if ($source =~ s{(?<=\Q.inc.pl\E)/jsonp?$}{} and -r $source) { Html({ title => "$source source code", - version => '1.2', + version => '1.3', description => !$source ? 'Index of source files for this site.' : [ "Source code of the $source file at this site,", "with syntax highlighted and references linked." @@ -86,6 +86,7 @@ else { say ''; exit; } + -e or mkdir for $cachefile =~ s{[^/]+\z}{}r; # dirname open my $cache, '>', $cachefile or Alert("Could not save cache", "Opening $cachefile failed: $!");;