From 76f286c770f680c8b540464ec93053935dba04c8 Mon Sep 17 00:00:00 2001
From: eleksir <eleksir@exs-elm.ru>
Date: Thu, 3 Feb 2022 00:40:42 +0300
Subject: [PATCH] Fix error handling in canDeleteMessage

---
 lib/Teapot/Bot/Object/ChatMember.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lib/Teapot/Bot/Object/ChatMember.pm b/lib/Teapot/Bot/Object/ChatMember.pm
index 563f3c9..52740ac 100644
--- a/lib/Teapot/Bot/Object/ChatMember.pm
+++ b/lib/Teapot/Bot/Object/ChatMember.pm
@@ -83,7 +83,7 @@ sub canDeleteMessage {
     my $chatobj = $self->getChat ({ 'chat_id' => $chatid });
 
     # on api error, keep silence
-    unless ($chatobj) {
+    if ($chatobj == 0 || $chatobj->{error}) {
       cluck "Unable to get chat info for $chatid from telegram API";
       return 0;
     }
@@ -91,7 +91,7 @@ sub canDeleteMessage {
     my $myObj = $self->getMe ();
 
     # on api error, keep silence
-    unless ($chatobj) {
+    if ($myObj == 0 || $myObj->{error}) {
       cluck "Unable to get chat info for $chatid from telegram API";
       return 0;
     }
@@ -100,7 +100,7 @@ sub canDeleteMessage {
     my $me = $self->getChatMember ({ 'chat_id' => $chatid, 'user_id' => $myid });
 
     # on api error, keep silence
-    unless ($me) {
+    if ($me == 0 || $me->{error}) {
       cluck 'Unable to get chat info for bot itself from telegram API';
       return 0;
     }