From c6a1b70110abd11c1d8cc26d3a222f7993a123c6 Mon Sep 17 00:00:00 2001
From: eleksir <eleksir@exs-elm.ru>
Date: Sun, 30 Jan 2022 15:40:59 +0300
Subject: [PATCH] fix empty answer to chat if learn_preply returns undef

---
 lib/IRCBot.pm | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/lib/IRCBot.pm b/lib/IRCBot.pm
index 0d3c5b2..011456e 100644
--- a/lib/IRCBot.pm
+++ b/lib/IRCBot.pm
@@ -71,12 +71,11 @@ sub RunIRCBot {
 					}
 				}
 
-				$answer = eval {
-					sprintf '%s, %s', $nick, lcfirst ($hailo->{$chatid}->learn_reply ($phrase));
-				};
+				$answer = $hailo->{$chatid}->learn_reply ($phrase);
 
-				unless (defined $answer) {
-					$log->warn ($EVAL_ERROR);
+				if (defined $answer) {
+					$answer = sprintf '%s, %s', $nick, lcfirst ($answer);
+				} else {
 					$answer = sprintf '%s, %s', $nick, RandomCommonPhrase ();
 				}
 			} elsif (substr ($text, -2) eq '++'  ||  substr ($text, -2) eq '--') {