X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/108d13f833e9daeff4ea1552e2e1bee1e0ed8c22..3b395d58206174e283f62ac5ca3a382c9d375a02:/common.inc.plp diff --git a/common.inc.plp b/common.inc.plp index 0a010d2..81f91b5 100644 --- a/common.inc.plp +++ b/common.inc.plp @@ -8,6 +8,7 @@ use open ':std' => ':utf8'; use File::stat 'stat'; use HTTP::Date; +use Encode qw( decode_utf8 ); $PLP::ERROR = sub { my ($text, $html) = @_; @@ -23,7 +24,7 @@ BEGIN { # user request our $Dev = $ENV{HTTP_HOST} =~ /\bdev\./; our ($file) = $ENV{SCRIPT_FILENAME} =~ m{ ([^/]+) \.plp$ }x; -our $Request = $ENV{PATH_INFO} =~ s{^/}{}r; +our $Request = decode_utf8($ENV{PATH_INFO} =~ s{^/}{}r); our $style; our $showkeys = !exists $get{keys} ? undef :