summaryrefslogtreecommitdiff
path: root/git-svnimport.perl
diff options
context:
space:
mode:
authorSanti_Béjar <sbejar@gmail.com>2006-03-27 13:26:01 +0200
committerJunio C Hamano <junkio@cox.net>2006-04-20 23:41:24 -0700
commitd598075e52634665bd25a80b085e300d338d21f5 (patch)
tree92c37b5dc0cad00a6cecc868e5fe05e25e5e90c8 /git-svnimport.perl
parentf527cb8c38964a90b1b13485f2ad46b72960d387 (diff)
downloadgit-d598075e52634665bd25a80b085e300d338d21f5.tar.gz
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-xgit-svnimport.perl4
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 $@;