From cfa927aec71633f031996bb7093d1620b140db76 Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Thu, 9 Jun 2005 02:31:55 +0000 Subject: Fix invocation of scp --- urpm/parallel_ssh.pm | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) (limited to 'urpm') 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)); } -- cgit v1.2.1