diff options
Diffstat (limited to 'lib/Fripost/Panel')
| -rw-r--r-- | lib/Fripost/Panel/Interface.pm | 1 | ||||
| -rw-r--r-- | lib/Fripost/Panel/Login.pm | 3 |
2 files changed, 3 insertions, 1 deletions
diff --git a/lib/Fripost/Panel/Interface.pm b/lib/Fripost/Panel/Interface.pm index fc27158..228233e 100644 --- a/lib/Fripost/Panel/Interface.pm +++ b/lib/Fripost/Panel/Interface.pm @@ -603,6 +603,7 @@ sub parse_CGI_query { $params{$_} = $rest{$_} for keys %rest; foreach my $key (keys %params) { + Encode::_utf8_on($params{$key}) if defined $params{$key}; if ($key eq 'name') { $entry->{$key} = $params{$key}; } diff --git a/lib/Fripost/Panel/Login.pm b/lib/Fripost/Panel/Login.pm index af40461..1eabafb 100644 --- a/lib/Fripost/Panel/Login.pm +++ b/lib/Fripost/Panel/Login.pm @@ -228,7 +228,8 @@ sub split_path { $uri =~ s/^$script//s; # Strip the facing CGI script name $uri =~ s/\?.*//s; # Strip the query - map { decodeURIComponent($_); Encode::_utf8_on($_); $_ } (split '/', $uri); + map { my $x = decodeURIComponent($_); Encode::_utf8_on($x); $x } + (split '/', $uri); } |