Code

Reintroduce svn pools to solve the memory leak.
authorSanti_Béjar <sbejar@gmail.com>
Mon, 27 Mar 2006 11:26:01 +0000 (13:26 +0200)
committerJunio C Hamano <junkio@cox.net>
Fri, 21 Apr 2006 06:41:24 +0000 (23:41 -0700)
Introduced in 4802426.

Signed-off-by: Santi Béjar <sbejar@gmail.com>
Signed-off-by: Junio C Hamano <junkio@cox.net>
git-svnimport.perl

index 60ed7ae3ee450878d8ef6dc3bf1f60670d1078d3..61f559f0a8ae69c04cfe9d8700591cedda41989c 100755 (executable)
@@ -136,8 +136,10 @@ sub file {
 
        print "... $rev $path ...\n" if $opt_v;
        my (undef, $properties);
+       my $pool = SVN::Pool->new();
        eval { (undef, $properties)
-                  = $self->{'svn'}->get_file($path,$rev,$fh); };
+                  = $self->{'svn'}->get_file($path,$rev,$fh,$pool); };
+       $pool->clear;
        if($@) {
                return undef if $@ =~ /Attempted to get checksum/;
                die $@;