- my $http = $obj->base_url($ctx->{env});
- chop $http; # no trailing slash
- my $part = $obj->max_git_part;
- if (defined($part)) { # v2
- # most recent partition first:
- for (; $part >= 0; $part--) {
- my $url = "$http/$part";
+ my $http = $ibx->base_url($ctx->{env});
+ chop $http; # no trailing slash for clone
+ my $max = $ibx->max_git_epoch;
+ my $dir = (split(m!/!, $http))[-1];
+ if (defined($max)) { # v2
+ $seen{$http} = 1;
+ for my $i (0..$max) {
+ # old parts my be deleted:
+ -d "$ibx->{mainrepo}/git/$i.git" or next;
+ my $url = "$http/$i";