Исправлены синтаксические ошибки и обработка кармы пустоты

This commit is contained in:
eleksir
2022-03-27 20:38:15 +03:00
parent 4d9cde38be
commit ba69f9d9df
2 changed files with 17 additions and 7 deletions

View File

@@ -28,12 +28,17 @@ sub KarmaSet (@) {
my $phrase = shift;
my $action = shift;
if ((! defined $phrase) || $phrase eq '') {
$phrase = ' ';
unless (defined $phrase) {
$phrase = '';
}
$phrase = trim ($phrase);
# Костылёк для кармы пустоты
if ($phrase eq '') {
$phrase = ' ';
}
my $cache = CHI->new (
driver => 'BerkeleyDB',
root_dir => $cachedir,
@@ -80,12 +85,17 @@ sub KarmaGet (@) {
my $chatid = shift;
my $phrase = shift;
if ((! defined $phrase) || $phrase eq '') {
$phrase = ' ';
unless (defined $phrase) {
$phrase = '';
}
$phrase = trim ($phrase);
# Костылёк для кармы пустоты
if ($phrase eq '') {
$phrase = ' ';
}
my $cache = CHI->new (
driver => 'BerkeleyDB',
root_dir => $cachedir,