{"thread":{"id":"37806","subject":"[PATCH] git-svn: save a little memory as fetch progresses","startedAt":"2014-10-25T08:00:55Z","lastAt":"2014-10-25T08:00:55Z","messageCount":1,"participants":["Eric Wong"],"isPatch":true,"patchVersion":1,"patchTotal":null},"messages":[{"id":"251037","messageId":"1414224055-10184-1-git-send-email-normalperson@yhbt.net","threadId":"37806","inReplyTo":null,"subject":"[PATCH] git-svn: save a little memory as fetch progresses","fromName":"Eric Wong","fromEmail":"normalperson@yhbt.net","sentAt":"2014-10-25T08:00:55Z","receivedAt":"2014-10-25T08:00:55Z","isPatch":true,"sender":{"key":"e@80x24.org","avatar":null},"body":"There is no reason to keep entries in the %revs hash after we're\ndone processing a revision, so allow entries become freed as\nprocessing continues.\n\nSigned-off-by: Eric Wong <normalperson@yhbt.net>\n---\n perl/Git/SVN/Ra.pm | 2 +-\n 1 file changed, 1 insertion(+), 1 deletion(-)\n\ndiff --git a/perl/Git/SVN/Ra.pm b/perl/Git/SVN/Ra.pm\nindex e326849..5bc5b4e 100644\n--- a/perl/Git/SVN/Ra.pm\n+++ b/perl/Git/SVN/Ra.pm\n@@ -431,7 +431,7 @@ sub gs_fetch_loop_common {\n \n \t\tmy %exists = map { $_->path => $_ } @$gsv;\n \t\tforeach my $r (sort {$a <=> $b} keys %revs) {\n-\t\t\tmy ($paths, $logged) = @{$revs{$r}};\n+\t\t\tmy ($paths, $logged) = @{delete $revs{$r}};\n \n \t\t\tforeach my $gs ($self->match_globs(\\%exists, $paths,\n \t\t\t                                   $globs, $r)) {\n-- \nEW\n"}]}