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

fixing factoid bug IO::ASYNC

Browse source
This commit is contained in:
Ryan Voots 2010-01-04 22:19:16 -05:00
parent 20941afb42
commit f7738cd25f
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

@ -147,7 +147,7 @@ sub store_factoid {
my( $self, $said) =@_; my( $self, $said) =@_;
my ($author, $body ) = ($said->{name}, $said->{body}); my ($author, $body ) = ($said->{name}, $said->{body});
return unless $body =~ /^(?:\S+[:,])?\s*(.+?)\s+($COPULA_RE)\s+(.+)$/s; return unless $body =~ /^\s*(.+?)\s+($COPULA_RE)\s+(.+)$/s;
my( $subject, $copula, $predicate ) = ($1,$2,$3); my( $subject, $copula, $predicate ) = ($1,$2,$3);
my $compose_macro = 0; my $compose_macro = 0;