From: Sam Vilain Date: Sat, 30 Jun 2007 08:56:14 GMT Subject: [PATCH] git-svn: cache max revision in rev_db databases Message-ID: <11831937823184-git-send-email-sam.vilain@catalyst.net.nz> In-Reply-To: <11831937822346-git-send-email-sam.vilain@catalyst.net.nz> From: Sam Vilain Cache the maximum revision for each rev_db URL rather than looking it up each time. This saves a lot of time when rebuilding indexes on a freshly cloned repository. Signed-off-by: Sam Vilain --- git-svn.perl | 4 ++++ 1 files changed, 4 insertions(+), 0 deletions(-) diff --git a/git-svn.perl b/git-svn.perl index 556cd7d..a8b6669 100755 --- a/git-svn.perl +++ b/git-svn.perl @@ -801,6 +801,7 @@ sub working_head_info { my ($head, $refs) = @_; my ($fh, $ctx) = command_output_pipe('log', $head); my $hash; + my %max; while (<$fh>) { if ( m{^commit ($::sha1)$} ) { unshift @$refs, $hash if $hash and $refs; @@ -810,11 +811,14 @@ sub working_head_info { next unless s{^\s*(git-svn-id:)}{$1}; my ($url, $rev, $uuid) = extract_metadata($_); if (defined $url && defined $rev) { + next if $max{$url} and $max{$url} < $rev; if (my $gs = Git::SVN->find_by_url($url)) { my $c = $gs->rev_db_get($rev); if ($c && $c eq $hash) { close $fh; # break the pipe return ($url, $rev, $uuid, $gs); + } else { + $max{$url} ||= $gs->rev_db_max; } } } -- 1.5.2.1.1131.g3b90