X-Git-Url: https://git.octo.it/?a=blobdiff_plain;f=git-svnimport.perl;h=61f559f0a8ae69c04cfe9d8700591cedda41989c;hb=aa9b1573a5ca93395e8e41651bfc7245f10e0240;hp=60ed7ae3ee450878d8ef6dc3bf1f60670d1078d3;hpb=08ddd4f7649ccf8b9f61c903de420bfd0a8a602e;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 $@;