From 39de3cffa1b798ba536af02f3c1211f98dc676a7 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 9 Jul 2008 19:04:00 +0000 Subject: cleanup (and show common code) --- urpm/parallel_ka_run.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/urpm/parallel_ka_run.pm b/urpm/parallel_ka_run.pm index ba00e05c..e2930f1d 100644 --- a/urpm/parallel_ka_run.pm +++ b/urpm/parallel_ka_run.pm @@ -39,11 +39,13 @@ sub parallel_register_rpms { #- parallel find_packages_to_remove sub parallel_find_remove { my ($parallel, $urpm, $state, $l, %options) = @_; - my ($node, %bad_nodes, %base_to_remove, %notfound); my ($test, $pkgs) = urpm::parallel::find_remove_pre($urpm, $state, %options); $pkgs and return @$pkgs; + my (%bad_nodes, %base_to_remove, %notfound); + my $node; + #- now try an iteration of urpme. $urpm->{log}("parallel_ka_run: $rshp_command -v $parallel->{options} -- urpme --no-locales --auto $test" . (join ' ', map { "'$_'" } @$l)); open my $fh, "$rshp_command -v $parallel->{options} -- urpme --no-locales --auto $test" . join(' ', map { "'$_'" } @$l) . " 2>&1 |"; -- cgit v1.2.1