# [PATCH] git-svn: save a little memory as fetch progresses

1 messages from 2014-10-25 to 2014-10-25. Participants: Eric Wong.
Thread: https://gitlist.dev/t/37806

## Eric Wong, 2014-10-25 08:00

Subject: [PATCH] git-svn: save a little memory as fetch progresses
Message-ID: <1414224055-10184-1-git-send-email-normalperson@yhbt.net>
URL: https://gitlist.dev/e/1414224055-10184-1-git-send-email-normalperson%40yhbt.net

```
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>
---
 perl/Git/SVN/Ra.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)) {
-- 
EW

```