X-Git-Url: https://git.octo.it/?a=blobdiff_plain;f=git-svnimport.perl;h=61f559f0a8ae69c04cfe9d8700591cedda41989c;hb=ac6245e31a359200b65bfdd910bba9a0fbe90c11;hp=60ed7ae3ee450878d8ef6dc3bf1f60670d1078d3;hpb=24735cfc500feb2a8dba9f140080ab3476363d28;p=git.git

diff --git a/git-svnimport.perl b/git-svnimport.perl
index 60ed7ae3..61f559f0 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 $@;