diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-06-09 06:01:51 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-06-09 06:01:51 +0000 |
| commit | 31ad4fb787dc5bc23bf8a3d708d32e3a79641949 (patch) | |
| tree | ba09e5b8df64bbd1aee879efd7a94883791a6502 /urpm/parallel_ssh.pm | |
| parent | 93821d278ab25cd4cec52d228f61f30e34c74cd5 (diff) | |
| download | urpmi-31ad4fb787dc5bc23bf8a3d708d32e3a79641949.tar urpmi-31ad4fb787dc5bc23bf8a3d708d32e3a79641949.tar.gz urpmi-31ad4fb787dc5bc23bf8a3d708d32e3a79641949.tar.bz2 urpmi-31ad4fb787dc5bc23bf8a3d708d32e3a79641949.tar.xz urpmi-31ad4fb787dc5bc23bf8a3d708d32e3a79641949.zip | |
Error reporting nit
Diffstat (limited to 'urpm/parallel_ssh.pm')
| -rw-r--r-- | urpm/parallel_ssh.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/urpm/parallel_ssh.pm b/urpm/parallel_ssh.pm index 2e52749f..b14416fb 100644 --- a/urpm/parallel_ssh.pm +++ b/urpm/parallel_ssh.pm @@ -43,7 +43,7 @@ sub parallel_find_remove { my $command = "ssh $node urpme --no-locales --auto $test" . (join ' ', map { "'$_'" } @$l); $urpm->{log}("parallel_ssh: $command"); open my $fh, "$command 2>&1 |" - or $urpm->{fatal}(1, "Can't fork ssh: $!\n"); + or $urpm->{fatal}(1, "Can't fork ssh: $!"); while (defined ($_ = <$fh>)) { chomp; /^\s*$/ and next; @@ -160,7 +160,7 @@ sub parallel_resolve_dependencies { my $command = "ssh $node urpmq --synthesis $synthesis -fduc $line " . join(' ', keys %chosen); $urpm->{ui_msg}("parallel_ssh: $command", urpm::N("Resolving dependencies on %s...", $node)); open my $fh, "$command |" - or $urpm->{fatal}(1, "Can't fork ssh: $!\n"); + or $urpm->{fatal}(1, "Can't fork ssh: $!"); while (defined ($_ = <$fh>)) { chomp; if (my ($action, $what) = /^\@([^\@]*)\@(.*)/) { @@ -215,7 +215,7 @@ sub parallel_install { my $command = "ssh $node urpmi --pre-clean --no-locales --test --no-verify-rpm --auto --synthesis $parallel->{synthesis} $parallel->{line}"; $urpm->{ui_msg}("parallel_ssh: $command", urpm::N("Verifying if install is possible on %s...", $node)); open my $fh, "$command |" - or $urpm->{fatal}(1, "Can't fork ssh: $!\n"); + or $urpm->{fatal}(1, "Can't fork ssh: $!"); while ($_ = <$fh>) { $bad_nodes{$node} .= $_; /Installation failed/ and $bad_nodes{$node} = ''; @@ -240,7 +240,7 @@ sub parallel_install { $urpm->{ui_msg}("parallel_ssh: $command", urpm::N("Performing install on %s...", $node)); $urpm->{ui}{progress}->(0) if ref $urpm->{ui}{progress}; open my $fh, "$command |" - or $urpm->{fatal}(1, "Can't fork ssh: $!\n"); + or $urpm->{fatal}(1, "Can't fork ssh: $!"); local $/ = \1; my $log; my $last_time; |