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

fixed bug related to no, as in "notepad is..."

Browse source
This commit is contained in:
Ryan Voots 2010-08-10 18:02:06 -04:00
parent 747a592c56
commit 77641b63f6
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

@ -177,7 +177,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 =~ /^(?:no[, ]?)?\s*(.+?)\s+($COPULA_RE)\s+(.+)$/s; return unless $body =~ /^(?:no[, ])?\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;