Bug in Cyrus::SIEVE::managesieve (libcyrus-imap-perl22 2.2.13-10)

[Jörg Ludwig]

Hi!

I was writing a script to upload the old user's .sieve files to the sieve server.

I noticed that the sieve_put_file_withdest function from Cyrus::SIEVE::managesieve leaves one file handle open on each call. Hence I can call it only 1021 times before it fails. I attached a small perl script to show the error.

strace outputs:
open("/tmp/sieve_fh_bug", O_RDONLY)     = 1022
...
open("/tmp/sieve_fh_bug", O_RDONLY)     = 1023
...
open("/tmp/sieve_fh_bug", O_RDONLY)     = -1 EMFILE (Too many open files)

Greetings,
Jörg Ludwig
-------------- next part --------------
A non-text attachment was scrubbed...
Name: sieve_fh_bug
Type: application/x-perl
Size: 507 bytes
Desc: not available
Url : http://lists.alioth.debian.org/pipermail/pkg-cyrus-imapd-debian-devel/attachments/20080722/6e0e8e4e/attachment.bin