diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-06-09 02:31:55 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-06-09 02:31:55 +0000 |
| commit | cfa927aec71633f031996bb7093d1620b140db76 (patch) | |
| tree | 58131e4fa5ae588a57662acc9228ac47b26ed318 | |
| parent | 92a1e0831633606476c340cf88df3e3ea438e4f8 (diff) | |
| download | urpmi-cfa927aec71633f031996bb7093d1620b140db76.tar urpmi-cfa927aec71633f031996bb7093d1620b140db76.tar.gz urpmi-cfa927aec71633f031996bb7093d1620b140db76.tar.bz2 urpmi-cfa927aec71633f031996bb7093d1620b140db76.tar.xz urpmi-cfa927aec71633f031996bb7093d1620b140db76.zip | |
Fix invocation of scp
| -rw-r--r-- | urpm/parallel_ssh.pm | 11 |
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)); } |