diff options
| author | Eric Wong <normalperson@yhbt.net> | 2009-01-25 23:35:52 (GMT) |
|---|---|---|
| committer | Eric Wong <normalperson@yhbt.net> | 2009-01-26 01:01:47 (GMT) |
| commit | bf8a40b89eef66bc16902f7ea1a73352b8ba3d18 (patch) | |
| tree | a8fe0dc92feb98b55f21724ea24805043b376f9a /git-svn.perl | |
| parent | 5dc1308562ab5991ecada68b06707709bea408c9 (diff) | |
| download | git-bf8a40b89eef66bc16902f7ea1a73352b8ba3d18.zip git-bf8a40b89eef66bc16902f7ea1a73352b8ba3d18.tar.gz git-bf8a40b89eef66bc16902f7ea1a73352b8ba3d18.tar.bz2 | |
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>
Diffstat (limited to 'git-svn.perl')
| -rwxr-xr-x | git-svn.perl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/git-svn.perl b/git-svn.perl index d4cb538..5d39b39 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; |