Perlbot/perlbuut
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-07 16:45:40 -04:00
Code Issues Releases Wiki Activity

Eliminate undef in the suggestionsw

Browse source
This commit is contained in:
Ryan Voots 2016-12-29 13:06:42 -08:00
parent 35d984ed50
commit 519e7994c2
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
plugins/factoids.pm
View file

@ -660,7 +660,7 @@ sub _metaphone_matches {
my @sorted = map {$_->[0]} sort {$a->[1] <=> $b->[1]} map {[$_->[1], distance($subject, $_->[1])]} grep {$_->[2] =~ /\S/} @$rows ; my @sorted = map {$_->[0]} sort {$a->[1] <=> $b->[1]} map {[$_->[1], distance($subject, $_->[1])]} grep {$_->[2] =~ /\S/} @$rows ;
return [@sorted[0..9]]; return [grep {$_} @sorted[0..9]];
} }
no warnings 'void'; no warnings 'void';