From e0de8211a7bc28605836b5b57024fcf6966bafd1 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 9 Jul 2008 18:05:25 +0000 Subject: rename var, cleanup --- urpm/parallel_ssh.pm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'urpm/parallel_ssh.pm') diff --git a/urpm/parallel_ssh.pm b/urpm/parallel_ssh.pm index 2f12c545..a1553b3a 100644 --- a/urpm/parallel_ssh.pm +++ b/urpm/parallel_ssh.pm @@ -23,15 +23,15 @@ sub _host { &_localhost ? '' : "$_[0]:" } sub parallel_register_rpms { my ($parallel, $urpm, @files) = @_; - foreach (keys %{$parallel->{nodes}}) { - $urpm->{log}("parallel_ssh: scp @files $_:$urpm->{cachedir}/rpms"); - if (_localhost($_)) { + foreach my $host (keys %{$parallel->{nodes}}) { + $urpm->{log}("parallel_ssh: scp @files $host:$urpm->{cachedir}/rpms"); + if (_localhost($host)) { my @f = grep { ! m!^$urpm->{cachedir}/rpms! } @files; - @f and system 'cp' => @f, "$urpm->{cachedir}/rpms"; + @f and system('cp', @f, "$urpm->{cachedir}/rpms"); } else { - system 'scp' => @files, "$_:$urpm->{cachedir}/rpms"; + system('scp', @files, "$host:$urpm->{cachedir}/rpms"); } - $? == 0 or $urpm->{fatal}(1, N("scp failed on host %s (%d)", $_, $? >> 8)); + $? == 0 or $urpm->{fatal}(1, N("scp failed on host %s (%d)", $host, $? >> 8)); } #- keep trace of direct files. -- cgit v1.2.1