From 642aadfd84d07d2d20ea3ab56abdab9e02350ba3 Mon Sep 17 00:00:00 2001
From: eleksir <eleksir@exs-elm.ru>
Date: Thu, 17 Dec 2020 11:59:11 +0300
Subject: [PATCH] Print chat mention to log only on debug "loglevel"

---
 lib/telegrambot.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/telegrambot.pm b/lib/telegrambot.pm
index 3e35c15..a8510b9 100644
--- a/lib/telegrambot.pm
+++ b/lib/telegrambot.pm
@@ -353,7 +353,7 @@ MYHELP
 		            defined ($msg->reply_to_message->from) &&
 		                    defined ($msg->reply_to_message->from->username) &&
 		                            ($msg->reply_to_message->from->username eq $myusername)) {
-			carp sprintf ('[DEBUG] In public chat %s (%s) %s quote us!', $chatname, $chatid, $vis_a_vi);
+			carp sprintf ('[DEBUG] In public chat %s (%s) %s quote us!', $chatname, $chatid, $vis_a_vi) if $c->{debug};
 			# remove our name from users reply, just in case
 			my $pat1 = quotemeta ('@' . $myusername);
 			my $pat2 = quotemeta ($myfullname);