diff options
| author | Santi_Béjar <sbejar@gmail.com> | 2006-03-27 15:26:01 +0400 |
|---|---|---|
| committer | Junio C Hamano <junkio@cox.net> | 2006-04-21 10:41:24 +0400 |
| commit | d598075e52634665bd25a80b085e300d338d21f5 (patch) | |
| tree | 92c37b5dc0cad00a6cecc868e5fe05e25e5e90c8 /git-svnimport.perl | |
| parent | f527cb8c38964a90b1b13485f2ad46b72960d387 (diff) | |
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>
Diffstat (limited to 'git-svnimport.perl')
| -rwxr-xr-x | git-svnimport.perl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/git-svnimport.perl b/git-svnimport.perl index 60ed7ae3ee..61f559f0a8 100755 --- 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 $@; |