VPF::Cache::Memcached::Managed - Форум программистов

fpupkin

Дата 10.9.2008, 07:08 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 10.9.2008

Репутация: нет
Всего: нет

Добрый день.

имеем такой код

Код



use strict;

use Cache::Memcached::Managed;
my $cache = Cache::Memcached::Managed->new(
    data => {servers => ['/tmp/memcached.sock']}
    
);
print $cache->set( 
    value      => 'value',              
    key        => 'key1',
    expiration => '1H',
    group      => 'group1'
),"\n";
print $cache->delete_group( group => 'group1' );
---
1
1

Все работает замечательно, по дефолту используется модуль Cache::Memcached

теперь пробуем перейти на модуль Cache::Memcached::Fast, который более быстрый

пишем

Код


use strict;

use Cache::Memcached::Managed;
my $cache = Cache::Memcached::Managed->new(
    data => {servers => ['/tmp/memcached.sock']},
    memcached_class => 'Cache::Memcached::Fast',
);
print $cache->set( 
    value      => 'value',              
    key        => 'key1',
    expiration => '1H',
    group      => 'group1'
),"\n";
print $cache->delete_group( group => 'group1' );

--
1
0

Итого что имеем, не работает метод delete_group, он ничего не удаляет.

Вот лог из memcached

В первом случае

Код


<7 new client connection
<7 set 0#0.20#key1 0 3600 5
>7 STORED
<7 incr Cache::Memcached::Managed#0#group#group1 1
>7 NOT_FOUND
<7 add Cache::Memcached::Managed#0#group#group1 0 0 1
>7 STORED
<7 set 1#Cache::Memcached::Managed#0#group#group1 0 3600 11
>7 STORED
<7 get Cache::Memcached::Managed#0#group#group1
>7 sending key Cache::Memcached::Managed#0#group#group1
>7 END
<7 get Cache::Memcached::Managed#0#group#group1#_lowest
>7 END
<7 get 1#Cache::Memcached::Managed#0#group#group1
>7 sending key 1#Cache::Memcached::Managed#0#group#group1
>7 END
<7 set Cache::Memcached::Managed#0#group#group1#_lowest 0 0 1
>7 STORED
<7 delete Cache::Memcached::Managed#0#group#group1#_lowest
>7 DELETED
<7 delete Cache::Memcached::Managed#0#group#group1
>7 DELETED
<7 delete 1#Cache::Memcached::Managed#0#group#group1
>7 DELETED
<7 delete 0#0.20#key1
>7 DELETED
<7 connection closed.

Во втором случае

Код


<7 new client connection
<7 set 0#0.20#key1 0 3600 5
>7 STORED
<7 incr Cache::Memcached::Managed#0#group#group1 1
>7 NOT_FOUND
<7 set #Cache::Memcached::Managed#0#group#group1 0 3600 11
>7 STORED
<7 get Cache::Memcached::Managed#0#group#group1
>7 END
<7 get Cache::Memcached::Managed#0#group#group1
>7 END
<7 set Cache::Memcached::Managed#0#group#group1#_lowest 0 0 1
>7 STORED
<7 delete Cache::Memcached::Managed#0#group#group1#_lowest 0
>7 DELETED
<7 delete Cache::Memcached::Managed#0#group#group1 0
>7 NOT_FOUND
<7 connection closed.

вообщем явно какой то баг в модуле Cache::Memcached::Fast, еще одно доказательство, что баг именно там, это то что я его обновил до последней версии и после этого стали такие проблемы, до этого год не обновлял и все работало как часы.

memcached и модуль Cache::Memcached::Managed также последних версий.
Все брал на CPAN

Может кто подскажет как исправить этот баг?
Я бы рад откатиться до старой версии, но как? Где скачать старый модуль? В гугле не нашел :(

shamber

Дата 10.9.2008, 07:26 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1422
Регистрация: 5.9.2006
Где: Россия

Репутация: нет
Всего: 18

Цитата(fpupkin @ 10.9.2008, 07:08

)

Я бы рад откатиться до старой версии, но как? Где скачать старый модуль? В гугле не нашел :(

Перейти сюда и выбрать из выпадающего списка Other Releases тот релиз, который нужен.
PS ссылку поправил

Это сообщение отредактировал(а) shamber - 10.9.2008, 07:43

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: разработка для Web \| Следующая тема »