Исправлены синтаксические ошибки и обработка кармы пустоты
This commit is contained in:
18
lib/Karma.pm
18
lib/Karma.pm
@@ -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,
|
||||
|
||||
Reference in New Issue
Block a user