diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/LXRng/Context.pm | 6 | ||||
| -rw-r--r-- | lib/LXRng/Search/Xapian.pm | 5 |
2 files changed, 7 insertions, 4 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) { diff --git a/lib/LXRng/Search/Xapian.pm b/lib/LXRng/Search/Xapian.pm index 100d303..52f1733 100644 --- a/lib/LXRng/Search/Xapian.pm +++ b/lib/LXRng/Search/Xapian.pm @@ -110,9 +110,8 @@ sub add_release { sub indexed_term { my ($term) = @_; - use bytes; - return 0 if length($term) <= 2; - return 0 if length($term) > 128; + return 0 if bytes::length($term) <= 2; + return 0 if bytes::length($term) > 128; return 0 if $STOPWORD{$term}; return 1; |