Perl bindings not releasing db lock?

Hello, all.
        I'm working on a perl script right now that does the following (in
pseudo-code):

$ctx = SVN::Client->new()
while (1)
{
        $ctx->update( $working_dir )
        Read through files in repos, take actions based on those files
(possibly including modifying them)
        $ctx->commit( $working_dir )
        $ctx->cleanup ( $working_dir )
        sleep(60)
}

Note: I'm not storing source code in the repository, I'm storing config
files for devices, and instructions to run on those devices, which may make
my actions make a little more sense.

My problem: after a little while, the script dies with "too many open
files". With liberal use of lsof, I found that the script ends up
repeatedly opening the "repository/locks/db.lock" file, and not closing it,
until it hits the ulimit on open files for the system.

My question: is there some way to force the bindings to release that lock
file? $ctx->cleanup() isn't doing that.

(I'm running all this on a Debian system, on 1.1.4. Is this fixed in 1.2?)

Thanks.

Aaron
------------------
Aaron Gee-Clough
DNST/CIT/NEB/NSS
Contractor. Geek.

---------------------------------------------------------------------
To unsubscribe, e-mail: users-unsubscribe@subversion.tigris.org
For additional commands, e-mail: users-help@subversion.tigris.org
Received on Wed Jun 15 17:09:31 2005