summaryrefslogtreecommitdiffstats
path: root/urpm
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-06-09 02:31:55 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-06-09 02:31:55 +0000
commitcfa927aec71633f031996bb7093d1620b140db76 (patch)
tree58131e4fa5ae588a57662acc9228ac47b26ed318 /urpm
parent92a1e0831633606476c340cf88df3e3ea438e4f8 (diff)
downloadurpmi-cfa927aec71633f031996bb7093d1620b140db76.tar
urpmi-cfa927aec71633f031996bb7093d1620b140db76.tar.gz
urpmi-cfa927aec71633f031996bb7093d1620b140db76.tar.bz2
urpmi-cfa927aec71633f031996bb7093d1620b140db76.tar.xz
urpmi-cfa927aec71633f031996bb7093d1620b140db76.zip
Fix invocation of scp
Diffstat (limited to 'urpm')
-rw-r--r--urpm/parallel_ssh.pm11
1 files changed, 5 insertions, 6 deletions
diff --git a/urpm/parallel_ssh.pm b/urpm/parallel_ssh.pm
index ab7edd60..c6676903 100644
--- a/urpm/parallel_ssh.pm
+++ b/urpm/parallel_ssh.pm
@@ -7,9 +7,8 @@ sub parallel_register_rpms {
my ($parallel, $urpm, @files) = @_;
foreach (keys %{$parallel->{nodes}}) {
- my $sources = join ' ', map { "'$_'" } @files;
- $urpm->{log}("parallel_ssh: scp $sources $_:$urpm->{cachedir}/rpms");
- system 'scp' => $sources, "$_:$urpm->{cachedir}/rpms";
+ $urpm->{log}("parallel_ssh: scp @files $_:$urpm->{cachedir}/rpms");
+ system 'scp' => @files, "$_:$urpm->{cachedir}/rpms";
$? == 0 or $urpm->{fatal}(1, urpm::N("scp failed on host %s (%d)", $_, $? >> 8));
}
@@ -204,9 +203,9 @@ sub parallel_install {
my ($parallel, $urpm, undef, $install, $upgrade, %options) = @_;
foreach (keys %{$parallel->{nodes}}) {
- my $sources = join ' ', map { "'$_'" } values %$install, values %$upgrade;
- $urpm->{ui_msg}("parallel_ssh: scp $sources $_:$urpm->{cachedir}/rpms", urpm::N("Distributing files to %s...", $_));
- system "scp", $sources, "$_:$urpm->{cachedir}/rpms";
+ my @sources = values %$install, values %$upgrade;
+ $urpm->{ui_msg}("parallel_ssh: scp @sources $_:$urpm->{cachedir}/rpms", urpm::N("Distributing files to %s...", $_));
+ system "scp" => @sources, "$_:$urpm->{cachedir}/rpms";
$? == 0 or $urpm->{fatal}(1, urpm::N("scp failed on host %s (%d)", $_, $? >> 8));
}