Исправлены синтаксические ошибки
This commit is contained in:
@@ -97,7 +97,7 @@ my $parse_message = sub {
|
|||||||
} else {
|
} else {
|
||||||
$reply = trim (Fortune ());
|
$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;
|
my $text = undef;
|
||||||
|
|
||||||
@@ -106,7 +106,7 @@ my $parse_message = sub {
|
|||||||
}
|
}
|
||||||
|
|
||||||
$reply = KarmaGet ($m->{chatid}, $text);
|
$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;
|
my $text = undef;
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user