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

finally found the damned bug

Browse source
This commit is contained in:
Ryan Voots 2010-03-12 16:18:30 -05:00
parent 97f166bfa2
commit 7ece8e935a
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

@ -362,7 +362,7 @@ sub get_fact_substitute {
if ($said->{body} =~ m|^(?:\s*substitute)?\s*(.*?)\s*=~\s*s/([^/]+)/([^/]+)/([gi]*)\s*$|i) if ($said->{body} =~ m|^(?:\s*substitute)?\s*(.*?)\s*=~\s*s/([^/]+)/([^/]+)/([gi]*)\s*$|i)
{ {
my ($subject, $match, $subst, $flags) = ($1, $2, $3); my ($subject, $match, $subst, $flags) = ($1, $2, $3, $4);
my $fact = $self->_db_get_fact( _clean_subject( $subject ), $name ); my $fact = $self->_db_get_fact( _clean_subject( $subject ), $name );