From e140176c99deca737642d4b99175bc0c72ef9d90 Mon Sep 17 00:00:00 2001
From: eleksir <eleksir@exs-elm.ru>
Date: Sun, 3 Apr 2022 16:49:35 +0300
Subject: [PATCH] Check text length while detecting command

---
 lib/TelegramBot.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/TelegramBot.pm b/lib/TelegramBot.pm
index 2de5469..4488aa8 100644
--- a/lib/TelegramBot.pm
+++ b/lib/TelegramBot.pm
@@ -243,7 +243,7 @@ sub __on_msg {
 		# Ответ по-умолчанию
 		my $reply = 'Давайте ещё пообщаемся, а то я ещё не научилась от вас плохому.';
 
-		if (substr ($text, 0, length ($csign)) eq $csign) {
+		if ((length $text > length $csign)  &&  substr ($text, 0, length ($csign)) eq $csign) {
 			# Если текст похож на команду, усылаем его в BotLib.pm
 			$reply = Command ($self, $msg, $text, $userid);
 		} else {
@@ -348,7 +348,7 @@ sub __on_msg {
 
 			return;
 		# Если текст похож на команду, усылаем его в BotLib.pm
-		} elsif (substr ($text, 0, length ($csign)) eq $csign) {
+		} elsif ((length $text > length $csign)  &&  substr ($text, 0, length ($csign)) eq $csign) {
 			$reply = Command ($self, $msg, $text, $chatid);
 		# Похоже кто-то написал наше имя в чятике, но ничего не захотел дописывать к нему
 		} elsif (