diff options
-rwxr-xr-x | index.cgi | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -5,7 +5,7 @@ use strict; use warnings; use POSIX 'strftime', 'ceil', 'floor'; use Socket 'inet_pton', 'inet_ntop', 'AF_INET', 'AF_INET6'; -use TUWF ':html5', 'html_escape', 'mkclass'; +use TUWF ':Html5', 'html_escape', 'mkclass'; my @syntax = sort map /([^\/]+)\.vim$/?$1:(), @@ -160,7 +160,7 @@ TUWF::post '/mypastes' => sub { TUWF::get qr{/$code_re\.txt} => sub { - my $r = getpaste(tuwf->capture(0), 'raw'); + my $r = getpaste(tuwf->capture(1), 'raw'); return if !ref $r; tuwf->resHeader('Content-Type' => 'text/plain; charset=UTF-8'); lit $r->{raw}; |