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

adding it as =~ directly

Browse source
This commit is contained in:
Ryan Voots 2010-03-12 20:30:37 -05:00
parent 4c3063822e
commit 2fe21433a0
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
plugins/factoids.pm
View file

@ -127,6 +127,10 @@ sub command {
#i lost the object oriented calling here, but i don't care too much, BECAUSE this avoids using strings for the calling, i might change that. #i lost the object oriented calling here, but i don't care too much, BECAUSE this avoids using strings for the calling, i might change that.
$fact_string = $commandhash{$1}->($self,$subject, $said->{name}, $said); $fact_string = $commandhash{$1}->($self,$subject, $said->{name}, $said);
} }
elsif ($subject =~ m|^\s*(.*?)\s*=~\s*s/([^/]+)/([^/]+)/([gi]*)\s*$|i)
{
return $self->get_fact_substitute( $subject, $said->{name}, $said);
}
else { else {
$fact_string = $self->get_fact( $pm, $said, $subject, $said->{name}, $call_only ); $fact_string = $self->get_fact( $pm, $said, $subject, $said->{name}, $call_only );
} }