git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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 File::stat 'stat';
use HTTP::Date;
+use Encode qw( decode_utf8 );
$PLP::ERROR = sub {
my ($text, $html) = @_;
$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;
# 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 :
our $style;
our $showkeys = !exists $get{keys} ? undef :