summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--urpm/parallel_ka_run.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/urpm/parallel_ka_run.pm b/urpm/parallel_ka_run.pm
index 1aab170f..cdc5b3bf 100644
--- a/urpm/parallel_ka_run.pm
+++ b/urpm/parallel_ka_run.pm
@@ -33,7 +33,7 @@ sub _rshp_command {
$cmd;
}
-sub run_mput {
+sub _run_mput {
my ($urpm, $parallel, @para) = @_;
my @l = (split(' ', $parallel->{options}), '--', @para);
@@ -45,7 +45,7 @@ sub run_mput {
sub parallel_register_rpms {
my ($parallel, $urpm, @files) = @_;
- run_mput($urpm, $parallel, @files, "$urpm->{cachedir}/rpms/");
+ _run_mput($urpm, $parallel, @files, "$urpm->{cachedir}/rpms/");
$? == 0 || $? == 256 or $urpm->{fatal}(1, N("mput failed, maybe a node is unreacheable"));
urpm::parallel::post_register_rpms($parallel, $urpm, @files);
@@ -99,7 +99,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($urpm, $parallel, $synthesis, $synthesis);
$? == 0 || $? == 256 or $urpm->{fatal}(1, N("mput failed, maybe a node is unreacheable"));
$parallel->{synthesis} = $synthesis;
@@ -130,7 +130,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($urpm, $parallel, values %$install, values %$upgrade, "$urpm->{cachedir}/rpms/");
$? == 0 || $? == 256 or $urpm->{fatal}(1, N("mput failed, maybe a node is unreacheable"));
my (%bad_nodes);