diff options
Diffstat (limited to 'urpm')
| -rw-r--r-- | urpm/parallel_ka_run.pm | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/urpm/parallel_ka_run.pm b/urpm/parallel_ka_run.pm index ba549e00..b9991618 100644 --- a/urpm/parallel_ka_run.pm +++ b/urpm/parallel_ka_run.pm @@ -26,16 +26,16 @@ if (!$rshp_command) { $rshp_command ||= 'rshp'; sub _rshp_urpm { - my ($urpm, $parallel, $rshp_option, $cmd, $para) = @_; + my ($parallel, $urpm, $rshp_option, $cmd, $para) = @_; my $command = "$rshp_command $rshp_option $parallel->{options} -- $cmd --no-locales $para"; $urpm->{log}("parallel_ka_run: $command"); $command; } sub _rshp_urpm_popen { - my ($urpm, $parallel, $cmd, $para) = @_; + my ($parallel, $urpm, $cmd, $para) = @_; - my $command = _rshp_urpm($urpm, $parallel, '-v', $cmd, $para); + my $command = _rshp_urpm($parallel, $urpm, '-v', $cmd, $para); open(my $fh, "$command |") or $urpm->{fatal}(1, "Can't fork $rshp_command: $!"); $fh; } @@ -43,7 +43,7 @@ sub _rshp_urpm_popen { sub urpm_popen { my ($parallel, $urpm, $cmd, $para, $do) = @_; - my $fh = _rshp_urpm_popen($urpm, $parallel, $cmd, $para); + my $fh = _rshp_urpm_popen($parallel, $urpm, $cmd, $para); while (my $s = <$fh>) { chomp $s; @@ -55,7 +55,7 @@ sub urpm_popen { } sub _run_mput { - my ($urpm, $parallel, @para) = @_; + my ($parallel, $urpm, @para) = @_; my @l = (split(' ', $parallel->{options}), '--', @para); $urpm->{log}("parallel_ka_run: $mput_command " . join(' ', @l)); @@ -67,7 +67,7 @@ sub _run_mput { sub parallel_register_rpms { my ($parallel, $urpm, @files) = @_; - _run_mput($urpm, $parallel, @files, "$urpm->{cachedir}/rpms/"); + _run_mput($parallel, $urpm, @files, "$urpm->{cachedir}/rpms/"); urpm::parallel::post_register_rpms($parallel, $urpm, @files); } @@ -77,7 +77,7 @@ sub parallel_resolve_dependencies { my ($parallel, $synthesis, $urpm, $state, $requested, %options) = @_; #- first propagate the synthesis file to all machines - _run_mput($urpm, $parallel, $synthesis, $synthesis); + _run_mput($parallel, $urpm, $synthesis, $synthesis); $parallel->{synthesis} = $synthesis; @@ -106,7 +106,7 @@ sub parallel_resolve_dependencies { sub parallel_install { my ($parallel, $urpm, undef, $install, $upgrade, %options) = @_; - _run_mput($urpm, $parallel, values %$install, values %$upgrade, "$urpm->{cachedir}/rpms/"); + _run_mput($parallel, $urpm, values %$install, values %$upgrade, "$urpm->{cachedir}/rpms/"); my (%bad_nodes); $parallel->urpm_popen($urpm, 'urpmi', "--pre-clean --test --no-verify-rpm --auto --synthesis $parallel->{synthesis} $parallel->{line}", sub { @@ -129,7 +129,7 @@ sub parallel_install { } else { my $line = $parallel->{line} . ($options{excludepath} ? " --excludepath '$options{excludepath}'" : ""); #- continue installation. - system(_rshp_urpm($urpm, $parallel, '', 'urpmi', "--no-verify-rpm --auto --synthesis $parallel->{synthesis} $line")) == 0; + system(_rshp_urpm($parallel, $urpm, '', 'urpmi', "--no-verify-rpm --auto --synthesis $parallel->{synthesis} $line")) == 0; } } |