X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/9ddbc59f9907fb3e9445c14a9d5eac84350f7751..18ff65229f85952af3cc3f0646ee55e6a2dcd00a:/source.plp?ds=inline diff --git a/source.plp b/source.plp index b10f38b..e07087d 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." @@ -65,6 +65,7 @@ else { say "
'; print ReadFile($cachefile); say ''; @@ -97,8 +98,11 @@ else { or die 'early versions are buggy under FastCGI'; delete $Text::VimColor::SYNTAX_TYPE{Underlined}; return Text::VimColor->new( - file => $source, - vim_options => [@Text::VimColor::VIM_OPTIONS, '+:set enc=utf-8'], + file => $path, + vim_options => [@Text::VimColor::VIM_OPTIONS, + '+:set enc=utf-8', + '+:let perl_sub_signatures=1', + ], )->marked; }) { my %TYPETAG = ( @@ -133,7 +137,7 @@ else { } else { say '
'; - print EscapeHTML(decode_utf8(ReadFile($source))); + print EscapeHTML(decode_utf8(ReadFile($path))); say ''; }