diff options
| author | Eric Wong <normalperson@yhbt.net> | 2014-10-25 07:56:12 (GMT) |
|---|---|---|
| committer | Eric Wong <normalperson@yhbt.net> | 2014-10-25 07:56:33 (GMT) |
| commit | aee7d04c126b48a9871309ec65cecf88781b1d32 (patch) | |
| tree | 54e9e63066903028a8748ead15c709ea7c2b1f08 /perl | |
| parent | 6725ecaba7af16c69591e5a180acbc521e2bba63 (diff) | |
| download | git-aee7d04c126b48a9871309ec65cecf88781b1d32.zip git-aee7d04c126b48a9871309ec65cecf88781b1d32.tar.gz git-aee7d04c126b48a9871309ec65cecf88781b1d32.tar.bz2 | |
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')
| -rw-r--r-- | perl/Git/SVN/Ra.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl/Git/SVN/Ra.pm b/perl/Git/SVN/Ra.pm index e326849..5bc5b4e 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)) { |