don't loop forever
parent
6b7d90d88a
commit
3ba723d79a
|
@ -93,7 +93,7 @@ sub filter (@) { #{{{
|
||||||
my $size=512;
|
my $size=512;
|
||||||
my ($sample)=substr($toindex, 0, $size);
|
my ($sample)=substr($toindex, 0, $size);
|
||||||
my $next=substr($toindex, $size++, 1);
|
my $next=substr($toindex, $size++, 1);
|
||||||
while ($next !~ /\s/) {
|
while (defined $next && $next !~ /\s/) {
|
||||||
$sample.=$next;
|
$sample.=$next;
|
||||||
$next=substr($toindex, $size++, 1);
|
$next=substr($toindex, $size++, 1);
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue