summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorYorhel <git@yorhel.nl>2017-12-28 08:39:52 +0100
committerYorhel <git@yorhel.nl>2017-12-28 08:39:52 +0100
commitae70898ffd8f06b869ec4c554e4fda3d15839bc3 (patch)
treed7bd07b319f62b34ac5f88136eca771b97021371
parent3e2ac8c963565d9ae0d8a3f64200b8330f302a51 (diff)
Two fixes for the new TUWF version
-rwxr-xr-xindex.cgi4
1 files changed, 2 insertions, 2 deletions
diff --git a/index.cgi b/index.cgi
index 9cc79e1..a02f3df 100755
--- a/index.cgi
+++ b/index.cgi
@@ -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};