mirror of
https://github.com/perlbot/perlbuut
synced 2025-06-09 00:15:40 -04:00
fixed return value to reflect errors when can't save factoid
This commit is contained in:
parent
f60491766a
commit
7bbfab023e
1 changed files with 2 additions and 2 deletions
|
@ -392,9 +392,9 @@ sub get_fact_substitute {
|
|||
# $body =~ s/^\s*learn\s+//;
|
||||
# my( $subject, $predicate ) = split /\s+as\s+/, $body, 2;
|
||||
|
||||
$self->get_fact_learn("learn $subject as $result", $name, $said, $subject, $result);
|
||||
my $ret = $self->get_fact_learn("learn $subject as $result", $name, $said, $subject, $result);
|
||||
|
||||
return "learned $subject as $result";
|
||||
return $ret;
|
||||
}
|
||||
else
|
||||
{
|
||||
|
|
Loading…
Add table
Reference in a new issue