summaryrefslogtreecommitdiffstats
path: root/urpm/parallel_ka_run.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2002-09-06 12:00:37 +0000
committerFrancois Pons <fpons@mandriva.com>2002-09-06 12:00:37 +0000
commit7c48319a98e927a6002c9e84cda0d6e57317cad3 (patch)
treec005d82fb9ed5567b57405f1c24060a085040b9d /urpm/parallel_ka_run.pm
parentaedc03bdda82873c6fea30dc0128550b0bd36d35 (diff)
downloadurpmi-7c48319a98e927a6002c9e84cda0d6e57317cad3.tar
urpmi-7c48319a98e927a6002c9e84cda0d6e57317cad3.tar.gz
urpmi-7c48319a98e927a6002c9e84cda0d6e57317cad3.tar.bz2
urpmi-7c48319a98e927a6002c9e84cda0d6e57317cad3.tar.xz
urpmi-7c48319a98e927a6002c9e84cda0d6e57317cad3.zip
4.0-14mdk
Diffstat (limited to 'urpm/parallel_ka_run.pm')
-rw-r--r--urpm/parallel_ka_run.pm10
1 files changed, 6 insertions, 4 deletions
diff --git a/urpm/parallel_ka_run.pm b/urpm/parallel_ka_run.pm
index 92f5aedf..2b2bb0ba 100644
--- a/urpm/parallel_ka_run.pm
+++ b/urpm/parallel_ka_run.pm
@@ -3,6 +3,7 @@ package urpm::parallel_ka_run;
#- parallel resolve_dependencies
sub parallel_resolve_dependencies {
my ($parallel, $synthesis, $urpm, $state, $requested, %options) = @_;
+ my (%avoided, %requested);
#- first propagate the synthesis file to all machine.
$urpm->{log}("parallel_ka_run: mput $parallel->{options} -- '$synthesis' '$synthesis'");
@@ -53,7 +54,7 @@ sub parallel_resolve_dependencies {
#- now try an iteration of urpmq.
$urpm->{log}("parallel_ka_run: rshp -v $parallel->{options} -- urpmq --synthesis $synthesis -f $line ".join(' ', keys %chosen));
open F, "rshp -v $parallel->{options} -- urpmq --synthesis $synthesis -fdu $line ".join(' ', keys %chosen)." |";
- while ($_ = <F>) {
+ while (defined ($_ = <F>)) {
chomp;
s/<([^>]*)>.*:->:(.*)/$2/ and $node = $1;
if (/\|/) {
@@ -102,12 +103,13 @@ sub parallel_install {
my ($node, %bad_nodes);
$urpm->{log}("parallel_ka_run: rshp -v $parallel->{options} -- urpmi --no-locales --test --no-verify-rpm --auto --synthesis $parallel->{synthesis} $parallel->{line}");
open F, "rshp -v $parallel->{options} -- urpmi --no-locales --test --no-verify-rpm --auto --synthesis $parallel->{synthesis} $parallel->{line} |";
- while ($_ = <F>) {
+ while (defined ($_ = <F>)) {
chomp;
s/<([^>]*)>.*:->:(.*)/$2/ and $node = $1;
$bad_nodes{$node} .= $_;
+ /^\s*$/ and next;
/Installation failed/ and $bad_nodes{$node} = '';
- /Installation is possible/ and delete $bad_nodes{$node}, last;
+ /Installation is possible/ and delete $bad_nodes{$node};
}
close F or $urpm->{fatal}(1, _("rshp failed"));
@@ -119,7 +121,7 @@ sub parallel_install {
#- continue installation.
$urpm->{log}("parallel_ka_run: rshp $parallel->{options} -- urpmi --no-locales --no-verify-rpm --auto --synthesis $parallel->{synthesis} $parallel->{line}");
- system "rshp $parallel->{options} -- urpmi --no-locales --no-verify-rpm --auto --synthesis $parallel->{synthesis} $parallel->{line}" == 0;
+ system("rshp $parallel->{options} -- urpmi --no-locales --no-verify-rpm --auto --synthesis $parallel->{synthesis} $parallel->{line}") == 0;
}