git-svn: speed up find_rev_before

diff --git a/git-svn.perl b/git-svn.perl
index da1e1f64e9f3da06f687b447e448ad5bc6079072..f9a672d772e4d586edd18556aa653950b985ec5b 100755 (executable)
--- a/git-svn.perl
+++ b/git-svn.perl
@@ -3171,6 +3171,8 @@ sub find_rev_before {
        my ($self, $rev, $eq_ok, $min_rev) = @_;
        --$rev unless $eq_ok;
        $min_rev ||= 1;
+       my $max_rev = $self->rev_map_max;
+       $rev = $max_rev if ($rev > $max_rev);
        while ($rev >= $min_rev) {
                if (my $c = $self->rev_map_get($rev)) {
                        return ($rev, $c);