common: decode utf8 path request

[sheet.git] / common.inc.plp

diff --git a/common.inc.plp b/common.inc.plp
index 0a010d24170790cb592b18782c4787144129313f..81f91b5bc8dbd285777083dabdd232fdd17bcc4d 100644 (file)
--- 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 :