From acc7066459c55586deceb4c876b13e8ecf062b1b Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 9 Jul 2008 20:38:20 +0000 Subject: rename var --- urpm/parallel_ssh.pm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/urpm/parallel_ssh.pm b/urpm/parallel_ssh.pm index 1d846dc9..f7512e51 100644 --- a/urpm/parallel_ssh.pm +++ b/urpm/parallel_ssh.pm @@ -185,16 +185,16 @@ sub parallel_resolve_dependencies { sub parallel_install { my ($parallel, $urpm, undef, $install, $upgrade, %options) = @_; - foreach (keys %{$parallel->{nodes}}) { + foreach my $host (keys %{$parallel->{nodes}}) { my @sources = (values %$install, values %$upgrade); - $urpm->{log}("parallel_ssh: scp @sources $_:$urpm->{cachedir}/rpms"); - if (_localhost($_)) { + $urpm->{log}("parallel_ssh: scp @sources $host:$urpm->{cachedir}/rpms"); + if (_localhost($host)) { my @f = grep { ! m!^$urpm->{cachedir}/rpms! } @sources; @f and system('cp', @f, "$urpm->{cachedir}/rpms"); } else { - system('scp', @sources, "$_:$urpm->{cachedir}/rpms"); + system('scp', @sources, "$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)); } my %bad_nodes; -- cgit v1.2.1