Исправлены синтаксические ошибки
This commit is contained in:
@@ -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;
|
||||
|
||||
|
||||
Reference in New Issue
Block a user