diff options
| author | Eric Wong <normalperson@yhbt.net> | 2009-01-25 15:35:52 -0800 |
|---|---|---|
| committer | Eric Wong <normalperson@yhbt.net> | 2009-01-25 17:01:47 -0800 |
| commit | bf8a40b89eef66bc16902f7ea1a73352b8ba3d18 (patch) | |
| tree | a8fe0dc92feb98b55f21724ea24805043b376f9a /git-svn.perl | |
| parent | 5dc1308562ab5991ecada68b06707709bea408c9 (diff) | |
| download | git-bf8a40b89eef66bc16902f7ea1a73352b8ba3d18.tar.gz | |
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 d4cb538b93..5d39b391d1 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; |