From: Eric Wong <normalperson@yhbt.net>
Date: Sun, 25 Jan 2009 23:35:52 +0000 (-0800)
Subject: git-svn: fix memory leak when checking for empty symlinks
X-Git-Tag: v1.6.2-rc0~85^2~3
X-Git-Url: http://git.tremily.us/?a=commitdiff_plain;h=bf8a40b89eef66bc16902f7ea1a73352b8ba3d18;p=git.git

git-svn: fix memory leak when checking for empty symlinks

By enforcing SVN::Pool usage when calling get_file once again.

This regression was introduced with the reintroduction of
SVN::Ra::get_file() usage in
dbc6c74d0858d77e61e092a48d467e725211f8e9

Signed-off-by: Eric Wong <normalperson@yhbt.net>
---

diff --git a/git-svn.perl b/git-svn.perl
index d4cb538b9..5d39b391d 100755
--- a/git-svn.perl
+++ b/git-svn.perl
@@ -4021,7 +4021,8 @@ my ($ra_invalid, $can_do_switch, %ignored_err, $RA);
 BEGIN {
 	# enforce temporary pool usage for some simple functions
 	no strict 'refs';
-	for my $f (qw/rev_proplist get_latest_revnum get_uuid get_repos_root/) {
+	for my $f (qw/rev_proplist get_latest_revnum get_uuid get_repos_root
+	              get_file/) {
 		my $SUPER = "SUPER::$f";
 		*$f = sub {
 			my $self = shift;