Perlbot/perlbuut
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-09 03:15:41 -04:00
Code Issues Releases Wiki Activity

fixed return value to reflect errors when can't save factoid

Browse source
This commit is contained in:
Ryan Voots 2010-03-13 19:42:32 -05:00
parent f60491766a
commit 7bbfab023e
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
plugins/factoids.pm
View file

@ -392,9 +392,9 @@ sub get_fact_substitute {
# $body =~ s/^\s*learn\s+//; # $body =~ s/^\s*learn\s+//;
# my( $subject, $predicate ) = split /\s+as\s+/, $body, 2; # 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 else
{ {