diff options
author | Yorhel <git@yorhel.nl> | 2017-12-28 08:39:52 +0100 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2017-12-28 08:39:52 +0100 |
commit | ae70898ffd8f06b869ec4c554e4fda3d15839bc3 (patch) | |
tree | d7bd07b319f62b34ac5f88136eca771b97021371 /index.cgi | |
parent | 3e2ac8c963565d9ae0d8a3f64200b8330f302a51 (diff) |
Two fixes for the new TUWF version
Diffstat (limited to 'index.cgi')
-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}; |