From 391b9889cfd95d54ab5bd500a7d5999cfaf6669a Mon Sep 17 00:00:00 2001
From: eleksir <eleksir@exs-elm.ru>
Date: Sat, 16 Apr 2022 20:03:12 +0300
Subject: [PATCH] Add a bit of debug to RedisLib.pm

---
 lib/RedisLib.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/lib/RedisLib.pm b/lib/RedisLib.pm
index 091b546..535468d 100644
--- a/lib/RedisLib.pm
+++ b/lib/RedisLib.pm
@@ -44,7 +44,11 @@ sub redis_parse_message {
 
 	if ($can_talk) {
 		# Результат этого действия нас не сильно волнует, т.к. если будет ошибка, то в лог попадёт трейс
-		$main::TGM->sendMessage ($message);
+		my $r = $main::TGM->sendMessage ($message);
+
+		if ($r->{error}) {
+			log->error ("An error occured while sending message to chat $m->{chatid}");
+		}
 	}
 
 	return;