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

Merge branch 'master' of gitosis@isuckatdomains.net:perlbuut

Browse source
This commit is contained in:
Ryan Voots 2010-07-22 18:53:15 -04:00
commit f6b27d5d4c
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
plugins/factoids.pm
View file

@ -608,6 +608,13 @@ sub basic_get_fact {
} }
} }
else { else {
if ($subject =~ /\?$/) #check if some asshole decided to add a ? at the end of the factoid, if so remove it and recurse, this should only be able to recurse N times so it should be fine
{
my $newsubject = $subject;
$newsubject =~ s/\?$//;
return $self->basic_get_fact($pm, $said, $newsubject, $name, $call_only);
}
my $soundex = soundex( _clean_subject($subject, 1) ); my $soundex = soundex( _clean_subject($subject, 1) );
my $matches = $self->_soundex_matches( $soundex ); my $matches = $self->_soundex_matches( $soundex );