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>
This commit is contained in:

committed by
Junio C Hamano

parent
f527cb8c38
commit
d598075e52
@ -136,8 +136,10 @@ sub file {
|
|||||||
|
|
||||||
print "... $rev $path ...\n" if $opt_v;
|
print "... $rev $path ...\n" if $opt_v;
|
||||||
my (undef, $properties);
|
my (undef, $properties);
|
||||||
|
my $pool = SVN::Pool->new();
|
||||||
eval { (undef, $properties)
|
eval { (undef, $properties)
|
||||||
= $self->{'svn'}->get_file($path,$rev,$fh); };
|
= $self->{'svn'}->get_file($path,$rev,$fh,$pool); };
|
||||||
|
$pool->clear;
|
||||||
if($@) {
|
if($@) {
|
||||||
return undef if $@ =~ /Attempted to get checksum/;
|
return undef if $@ =~ /Attempted to get checksum/;
|
||||||
die $@;
|
die $@;
|
||||||
|
Reference in New Issue
Block a user