fix empty answer to chat if learn_preply returns undef
This commit is contained in:
@@ -71,12 +71,11 @@ sub RunIRCBot {
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
$answer = eval {
|
$answer = $hailo->{$chatid}->learn_reply ($phrase);
|
||||||
sprintf '%s, %s', $nick, lcfirst ($hailo->{$chatid}->learn_reply ($phrase));
|
|
||||||
};
|
|
||||||
|
|
||||||
unless (defined $answer) {
|
if (defined $answer) {
|
||||||
$log->warn ($EVAL_ERROR);
|
$answer = sprintf '%s, %s', $nick, lcfirst ($answer);
|
||||||
|
} else {
|
||||||
$answer = sprintf '%s, %s', $nick, RandomCommonPhrase ();
|
$answer = sprintf '%s, %s', $nick, RandomCommonPhrase ();
|
||||||
}
|
}
|
||||||
} elsif (substr ($text, -2) eq '++' || substr ($text, -2) eq '--') {
|
} elsif (substr ($text, -2) eq '++' || substr ($text, -2) eq '--') {
|
||||||
|
|||||||
Reference in New Issue
Block a user