cleanup (and show common code)

1 files changed, 3 insertions, 1 deletions

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 |";