1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-07 19:05:50 -04:00

forgot to update the removal regex

This commit is contained in:
Ryan Voots 2010-09-21 13:39:38 -04:00
parent f894a1f744
commit 341701a554

View file

@ -611,7 +611,7 @@ sub basic_get_fact {
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/\?$//;
$newsubject =~ s/[\?\.\!]$//;
return $self->basic_get_fact($pm, $said, $newsubject, $name, $call_only);
}