Fixed a bug with internationalization.

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);
 }