From cd756357a261aec69995b42d1e8b8b47903e6706 Mon Sep 17 00:00:00 2001
From: Arne Georg Gleditsch <argggh@lxr.linpro.no>
Date: Sat, 7 Aug 2010 00:09:10 +0200
Subject: UTF-8/mod_perl fixes.

---
 lib/LXRng/Search/Xapian.pm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'lib/LXRng/Search/Xapian.pm')

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;
-- 
cgit v1.2.3