lib/PublicInbox/LeiMirror.pm | 22 ++++++++++++---------- diff --git a/lib/PublicInbox/LeiMirror.pm b/lib/PublicInbox/LeiMirror.pm index 79861d64207170693600a1f4223b3e5c9098e5db..f7db5a494e09f36ffdd0780379270298bdbf9355 100644 --- a/lib/PublicInbox/LeiMirror.pm +++ b/lib/PublicInbox/LeiMirror.pm @@ -881,18 +881,20 @@ sub clone_all { my ($self, $m) = @_; my $todo = delete $self->{todo}; - my $nodep = delete $todo->{''}; + { + my $nodep = delete $todo->{''}; - # do not download unwanted deps - my $any_want = delete $self->{any_want}; - my @unwanted = grep { !$any_want->{$_} } keys %$todo; - my @nodep = delete(@$todo{@unwanted}); - push(@$nodep, @$_) for @nodep; + # do not download unwanted deps + my $any_want = delete $self->{any_want}; + my @unwanted = grep { !$any_want->{$_} } keys %$todo; + my @nodep = delete(@$todo{@unwanted}); + push(@$nodep, @$_) for @nodep; - # handle no-dependency repos, first - for (@$nodep) { - clone_v1($_, 1); - return if !keep_going($self); + # handle no-dependency repos, first + for (@$nodep) { + clone_v1($_, 1); + return if !keep_going($self); + } } # resolve references, deepest, first: while (scalar keys %$todo) {