[Dovecot] Timeout leak in get quota

29 Sep 2011

      Hello!
I wrote perl script for read current quota usage, it works but when I run the
program I receive a warning in Dovecot log:
2011-09-29 14:45:30 doveadm(guest@testmail.com): Warning: Timeout leak:
0x7f14800ad970
This is the script:
#!/usr/bin/perl
use strict;
use Socket;
use IO::Handle;
socket(TSOCK, PF_UNIX, SOCK_STREAM,0);
connect(TSOCK, sockaddr_un("/var/run/dovecot/doveadm-server")) or print("ERROR!");
print "VERSION\tdoveadm-server\t1\t0\n";
print "\tguest\@testmail.com\tquota get\n";
print "=" x 20 . "\n";
if (defined(my $messg = <TSOCK>)) {
    print $messg;

print TSOCK "VERSION\tdoveadm-server\t1\t0\n";
TSOCK->flush;

print TSOCK "\tguest\@testmail.com\tquota get\n";
TSOCK->flush;

$messg = &lt;TSOCK>;
print $messg;

$messg = &lt;TSOCK>;
print $messg;

close TSOCK;
}
I hope someone could help me to fix the warning.
Thanks in advance,
Dany

[Dovecot] Timeout leak in get quota

Danilo

This is the script:

}