diff options
| author | Arne Georg Gleditsch <argggh@lxr.linpro.no> | 2010-08-07 00:09:10 +0200 |
|---|---|---|
| committer | Arne Georg Gleditsch <argggh@lxr.linpro.no> | 2010-08-07 00:09:10 +0200 |
| commit | cd756357a261aec69995b42d1e8b8b47903e6706 (patch) | |
| tree | 1b7c7dd2c3d848e077f929b51572ec78a103e124 /lib/LXRng/Context.pm | |
| parent | ce8b8143639b5f4f40f789852d6908984f1d866d (diff) | |
UTF-8/mod_perl fixes.
Diffstat (limited to 'lib/LXRng/Context.pm')
| -rw-r--r-- | lib/LXRng/Context.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lib/LXRng/Context.pm b/lib/LXRng/Context.pm index fe1a0fe..959151b 100644 --- a/lib/LXRng/Context.pm +++ b/lib/LXRng/Context.pm @@ -47,7 +47,11 @@ sub new { $$self{'req_base'} = $host.$ENV{'SCRIPT_NAME'}; foreach my $p ($args{'query'}->param) { - $$self{'params'}{$p} = [$args{'query'}->param($p)]; + my @val = $args{'query'}->param($p); + for (@val) { + utf8::upgrade($_); + } + $$self{'params'}{$p} = [@val]; } my @prefs = $args{'query'}->cookie('lxr_prefs'); if (@prefs) { |