diff options
| -rw-r--r-- | urpm.pm | 13 | ||||
| -rw-r--r-- | urpm/parallel.pm | 12 | ||||
| -rw-r--r-- | urpme | 2 |
3 files changed, 15 insertions, 12 deletions
@@ -3053,17 +3053,8 @@ sub find_removed_from_basesystem { return 1; } -#- remove packages from node as remembered according to resolving done. -sub parallel_remove { - my ($urpm, $remove, %options) = @_; - my $state = {}; - my $callback = sub { $urpm->{fatal}(1, "internal distributed remove fatal error") }; - $urpm->{parallel_handler}->parallel_find_remove($urpm, $state, $remove, %options, - callback_notfound => undef, - callback_fuzzy => $callback, - callback_base => $callback, - ); -} +#- deprecated +sub parallel_remove { &urpm::parallel::remove } #- misc functions to help finding ask_unselect and ask_remove elements with their reasons translated. sub unselected_packages { diff --git a/urpm/parallel.pm b/urpm/parallel.pm index e5dff4ff..dcc68dce 100644 --- a/urpm/parallel.pm +++ b/urpm/parallel.pm @@ -54,4 +54,16 @@ sub resolve_dependencies { $urpm->{parallel_handler}->parallel_resolve_dependencies($file, $urpm, $state, $requested, %options); } +#- remove packages from node as remembered according to resolving done. +sub remove { + my ($urpm, $remove, %options) = @_; + my $state = {}; + my $callback = sub { $urpm->{fatal}(1, "internal distributed remove fatal error") }; + $urpm->{parallel_handler}->parallel_find_remove($urpm, $state, $remove, %options, + callback_notfound => undef, + callback_fuzzy => $callback, + callback_base => $callback, + ); +} + 1; @@ -130,7 +130,7 @@ if ($test && $auto) { #- Warning : the following message is parsed in urpm::parallel_* print N("removing %s", join(' ', sort @toremove)) . "\n"; @l = $parallel - ? $urpm->parallel_remove( + ? urpm::parallel::remove($urpm, \@toremove, test => $test, force => $force, |