diff options
Diffstat (limited to 'urpm/parallel_ka_run.pm')
| -rw-r--r-- | urpm/parallel_ka_run.pm | 18 |
1 files changed, 4 insertions, 14 deletions
diff --git a/urpm/parallel_ka_run.pm b/urpm/parallel_ka_run.pm index d351e90a..ba00e05c 100644 --- a/urpm/parallel_ka_run.pm +++ b/urpm/parallel_ka_run.pm @@ -39,20 +39,10 @@ sub parallel_register_rpms { #- parallel find_packages_to_remove sub parallel_find_remove { my ($parallel, $urpm, $state, $l, %options) = @_; - my ($test, $node, %bad_nodes, %base_to_remove, %notfound); - - #- keep in mind if the previous selection is still active, it avoids - #- to re-start urpme --test on each node. - if ($options{find_packages_to_remove}) { - delete $state->{rejected}; - delete $urpm->{error_remove}; - $test = '--test '; - } else { - @{$urpm->{error_remove} || []} and return @{$urpm->{error_remove}}; - #- no need to restart what has been started before. - $options{test} and return keys %{$state->{rejected}}; - $test = '--force '; - } + my ($node, %bad_nodes, %base_to_remove, %notfound); + + my ($test, $pkgs) = urpm::parallel::find_remove_pre($urpm, $state, %options); + $pkgs and return @$pkgs; #- now try an iteration of urpme. $urpm->{log}("parallel_ka_run: $rshp_command -v $parallel->{options} -- urpme --no-locales --auto $test" . (join ' ', map { "'$_'" } @$l)); |