Re: Perl API memory leaks

claco@chrislaco.com said:
> Have you tried using pools...SVN::Pool?

I just tried the following version:

---cut here
#!/usr/bin/perl

use strict;
use warnings;

use SVN::Client;
use SVN::Ra;

my ($auth);
my ($client);
my ($ra);
my ($pool);

$pool = SVN::Pool->new_default (undef);

$auth = [
    SVN::Client::get_simple_provider ($pool),
    SVN::Client::get_username_provider ($pool),
    SVN::Client::get_ssl_server_trust_file_provider ($pool)
    ];

$client = new SVN::Client (auth => $auth, pool => $pool);

$ra = new SVN::Ra (url => $ARGV[0], auth => $auth, pool => $pool);

while (1) {
    my ($iter_pool) = SVN::Pool->new_default ($pool);
    print $ra->get_latest_revnum ($iter_pool), "\n";
}
---cut here

This version doesn't leak if the repository I'm accessing is local
(file:). If I try with my original test with a https: repository then
it leaks much less, but still leaks.

-mato

---------------------------------------------------------------------
To unsubscribe, e-mail: users-unsubscribe@subversion.tigris.org
For additional commands, e-mail: users-help@subversion.tigris.org
Received on Mon Nov 21 12:29:38 2005