urosm
/
ikiwiki
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

more substr fixes

master
Joey Hess 2008-06-04 00:25:56 -04:00
parent fab1333b67
commit aefe5dd9cb
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
IkiWiki/Plugin/search.pm
View File

@ -93,10 +93,11 @@ sub filter (@) { #{{{
my $size=512;
my ($sample)=substr($toindex, 0, $size);
if (length($sample) == $size) {
my $next=substr($toindex, $size++, 1);
while (defined $next && $next !~ /\s/) {
my $max=length($toindex);
my $next;
while ($size < $max &&
($next=substr($toindex, $size++, 1)) !~ /\s/) {
$sample.=$next;
$next=substr($toindex, $size++, 1);
}
}
$sample=~s/\n/ /g;