avoid warning

[ikiwiki.git] / IkiWiki / Plugin / search.pm

diff --git a/IkiWiki/Plugin/search.pm b/IkiWiki/Plugin/search.pm
index 0d4a8f552abb9bf7f38d7e1112e1278308df1353..0218987d0f7c51d8dbf2c506f042033bbd16751e 100644 (file)
--- a/IkiWiki/Plugin/search.pm
+++ b/IkiWiki/Plugin/search.pm
@@ -92,10 +92,12 @@ sub filter (@) { #{{{
                # if it stopped in the middle of a word.
                my $size=512;
                my ($sample)=substr($toindex, 0, $size);
-               my $next=substr($toindex, $size++, 1);
-               while ($next !~ /\s/) {
-                       $sample.=$next;
-                       $next=substr($toindex, $size++, 1);
+               if (length($sample) == $size) {
+                       my $next=substr($toindex, $size++, 1);
+                       while (defined $next && $next !~ /\s/) {
+                               $sample.=$next;
+                               $next=substr($toindex, $size++, 1);
+                       }
                }
                $sample=~s/\n/ /g;
 
@@ -147,7 +149,7 @@ sub pageterm ($) { #{{{
 
        # TODO: check if > 255 char page names overflow term
        # length; use sha1 if so?
-       return "P".$page;
+       return "U".$page;
 } #}}}
 
 my $db;