Merge branch 'bc/sha-256-cvs-svn-updates'

[thirdparty/git.git] / perl / Git / SVN / Ra.pm

diff --git a/perl/Git/SVN/Ra.pm b/perl/Git/SVN/Ra.pm
index 56ad9870bcfdfae68bd0fb5b57aa73e208bcb0fd..2cfe055a9a04305ab5b248a6de0bab2a8abfcec0 100644 (file)
--- a/perl/Git/SVN/Ra.pm
+++ b/perl/Git/SVN/Ra.pm
@@ -486,11 +486,11 @@ sub gs_fetch_loop_common {
                        $reload_ra->() if $ra_invalid;
                }
                # pre-fill the .rev_db since it'll eventually get filled in
-               # with '0' x40 if something new gets committed
+               # with '0' x $oid_length if something new gets committed
                foreach my $gs (@$gsv) {
                        next if $gs->rev_map_max >= $max;
                        next if defined $gs->rev_map_get($max);
-                       $gs->rev_map_set($max, 0 x40);
+                       $gs->rev_map_set($max, 0 x $::oid_length);
                }
                foreach my $g (@$globs) {
                        my $k = "svn-remote.$g->{remote}.$g->{t}-maxRev";