Reintroduce svn pools to solve the memory leak.

Introduced in 4802426. Signed-off-by: Santi Béjar <sbejar@gmail.com> Signed-off-by: Junio C Hamano <junkio@cox.net>
git-mirror · Apr 21, 2006 · d598075 · d598075
1 parent f527cb8
commit d598075
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/git-svnimport.perl b/git-svnimport.perl
@@ -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 $@;