aboutsummaryrefslogtreecommitdiff
path: root/perl/Git
diff options
context:
space:
mode:
authorEric Wong <normalperson@yhbt.net>2014-10-25 07:56:12 +0000
committerEric Wong <normalperson@yhbt.net>2014-10-25 07:56:33 +0000
commitaee7d04c126b48a9871309ec65cecf88781b1d32 (patch)
tree54e9e63066903028a8748ead15c709ea7c2b1f08 /perl/Git
parent6725ecaba7af16c69591e5a180acbc521e2bba63 (diff)
downloadgit-aee7d04c126b48a9871309ec65cecf88781b1d32.tar.gz
git-aee7d04c126b48a9871309ec65cecf88781b1d32.tar.xz
git-svn: save a little memory as fetch progresses
There is no reason to keep entries in the %revs hash after we're done processing a revision, so allow entries become freed as processing continues. Signed-off-by: Eric Wong <normalperson@yhbt.net>
Diffstat (limited to 'perl/Git')
-rw-r--r--perl/Git/SVN/Ra.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl/Git/SVN/Ra.pm b/perl/Git/SVN/Ra.pm
index e326849c3..5bc5b4e59 100644
--- a/perl/Git/SVN/Ra.pm
+++ b/perl/Git/SVN/Ra.pm
@@ -431,7 +431,7 @@ sub gs_fetch_loop_common {
my %exists = map { $_->path => $_ } @$gsv;
foreach my $r (sort {$a <=> $b} keys %revs) {
- my ($paths, $logged) = @{$revs{$r}};
+ my ($paths, $logged) = @{delete $revs{$r}};
foreach my $gs ($self->match_globs(\%exists, $paths,
$globs, $r)) {