[Moscow.pm] Perl and BerkeleyDB

[Dmitry Nizovtsev]

может кто то сталкивался с такой проблемой.

Использую BerkeleyDB для для хранения тумбов для картинок таким образом:

my %THUMB;
tie %THUMB, 'BerkeleyDB::Hash',  -Filename => $file_name, -Flags =>
DB_CREATE;
my $image_file_id=$THUMB{$thumb_id};
untie %THUMB;

но файлы не закрываются и наблюдается такая картина:

 lsof -p 6962|grep thumb
download. 6962 lighttpd    6u   REG               8,17    90112 124665867
/array/thumbnail.db
download. 6962 lighttpd    7u   REG               8,17    90112 124665867
/array/thumbnail.db
download. 6962 lighttpd    8u   REG               8,17    90112 124665867
/array/thumbnail.db
download. 6962 lighttpd    9u   REG               8,17    90112 124665867
/array/thumbnail.db
download. 6962 lighttpd   10u   REG               8,17    90112 124665867
/array/thumbnail.db
download. 6962 lighttpd   11u   REG               8,17    90112 124665867
/array/thumbnail.db

Естественно это приводит к тому что исчерпывается лимит открытых файлов
дескрипторов - и всё перестаёт работать.

Понимаю что проблема весьма специфическая - но может кто то сталкивался с
подобным
большое спасибо
----------- следущая часть -----------
Вложение в формате HTML было извлечено…
URL: <http://mail.pm.org/pipermail/moscow-pm/attachments/20081022/e41b2cea/attachment.html>