Bug 141346: 'I am' wasn't learning correctly.

This commit is contained in:
ian%hixie.ch 2003-10-26 11:58:06 +00:00
parent 160a2ba452
commit e1d6df8147

View File

@ -224,16 +224,16 @@ sub DoFactoidCheck {
'is', # am => is 'is', # am => is
$event->{'from'}, # subject $event->{'from'}, # subject
$direct); $direct);
} elsif ($shortMessage =~ /^(no\s*, (\s*\Q$event->{'nick'}\E\s*,)? \s+)? (?:remember\s*:\s+)? (.+?) \s+ (is|are) \s+ (also\s+)? (.+?) $/six) { } elsif ($shortMessage =~ /^(no\s*, (?:\s*\Q$event->{'nick'}\E\s*,)? \s+)? (?:remember\s*:\s+)? (.+?) \s+ (is|are) \s+ (also\s+)? (.+?) $/six) {
# the "remember:" prefix can be used to delimit the start of the actual content, if necessary. # the "remember:" prefix can be used to delimit the start of the actual content, if necessary.
$self->SetFactoid($event, $self->SetFactoid($event,
defined($1), # replace existing answer? defined($1), # replace existing answer?
$3, # subject $2, # subject
lc($4), # is/are lc($3), # is/are
defined($5), # add to existing answer? defined($4), # add to existing answer?
$6, # object $5, # object
($direct or defined($2))); ($direct or defined($2)));
} elsif ($shortMessage =~ /^(no\s*, (\s*\Q$event->{'nick'}\E\s*,)? \s+)? (?:remember\s*:\s+)? I \s+ am \s+ (also\s+)? (.+?) $/osix) { } elsif ($shortMessage =~ /^(no\s*, (?:\s*\Q$event->{'nick'}\E\s*,)? \s+)? (?:remember\s*:\s+)? I \s+ am \s+ (also\s+)? (.+?) $/osix) {
# the "remember:" prefix can be used to delimit the start of the actual content, if necessary. # the "remember:" prefix can be used to delimit the start of the actual content, if necessary.
$self->SetFactoid($event, $self->SetFactoid($event,
defined($1), # replace existing answer? defined($1), # replace existing answer?