From 7ddd97710c36f82c1ce3d0a0473bacc007f08c37 Mon Sep 17 00:00:00 2001 From: eleksir Date: Sun, 27 Mar 2022 19:03:41 +0300 Subject: [PATCH] =?UTF-8?q?=D0=98=D1=81=D0=BF=D1=80=D0=B0=D0=B2=D0=BB?= =?UTF-8?q?=D0=B5=D0=BD=D1=8B=20=D1=81=D0=B8=D0=BD=D1=82=D0=B0=D0=BA=D1=81?= =?UTF-8?q?=D0=B8=D1=87=D0=B5=D1=81=D0=BA=D0=B8=D0=B5=20=D0=BE=D1=88=D0=B8?= =?UTF-8?q?=D0=B1=D0=BA=D0=B8?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- lib/Phrases.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/Phrases.pm b/lib/Phrases.pm index 19390d6..897968b 100644 --- a/lib/Phrases.pm +++ b/lib/Phrases.pm @@ -97,7 +97,7 @@ my $parse_message = sub { } else { $reply = trim (Fortune ()); } - } elsif (length ($cmd) >= length ('karma ') && substr ($cmd, 0, length ('karma ') eq 'karma ') { + } elsif (length ($cmd) >= length ('karma ') && substr ($cmd, 0, length ('karma ') eq 'karma ')) { # По-умолчанию достаём карму пустоты my $text = undef; @@ -106,7 +106,7 @@ my $parse_message = sub { } $reply = KarmaGet ($m->{chatid}, $text); - } elsif (length ($cmd) >= length ('карма ') && substr ($cmd, 0, length ('карма ') eq 'карма ') { + } elsif (length ($cmd) >= length ('карма ') && substr ($cmd, 0, length ('карма ') eq 'карма ')) { # По-умолчанию достаём карму пустоты my $text = undef;