diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-06-08 08:22:32 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-06-08 08:22:32 +0000 |
| commit | 4561693cb39d708ee1e46d1ef96e2ff5a3b3d1fa (patch) | |
| tree | ef93ce1bad52d549089313733bfd11cbbd3402bf | |
| parent | 68112d100439476f07d3c7f37dad4bdc743fd531 (diff) | |
| download | urpmi-4561693cb39d708ee1e46d1ef96e2ff5a3b3d1fa.tar urpmi-4561693cb39d708ee1e46d1ef96e2ff5a3b3d1fa.tar.gz urpmi-4561693cb39d708ee1e46d1ef96e2ff5a3b3d1fa.tar.bz2 urpmi-4561693cb39d708ee1e46d1ef96e2ff5a3b3d1fa.tar.xz urpmi-4561693cb39d708ee1e46d1ef96e2ff5a3b3d1fa.zip | |
Remove unused variables
| -rw-r--r-- | urpm/parallel_ssh.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/urpm/parallel_ssh.pm b/urpm/parallel_ssh.pm index 7c09e872..f5550bf1 100644 --- a/urpm/parallel_ssh.pm +++ b/urpm/parallel_ssh.pm @@ -52,8 +52,8 @@ sub parallel_find_remove { /To satisfy dependencies, the following packages are going to be removed/ and $urpm->{fatal}(1, ("node %s has bad version of urpme, please upgrade", $node)); if (/unknown packages?:? (.*)/) { - #- keep in mind unknown package from the node, because it should not be a fatal error - #- if other node have it. + #- remember unknown packages from the node, because it should not be a fatal error + #- if other nodes have it. @notfound{split /, /, $1} = (); } elsif (/The following packages contain ([^:]*): (.*)/) { $options{callback_fuzzy} and $options{callback_fuzzy}->($urpm, $1, split " ", $2) @@ -201,7 +201,7 @@ sub parallel_resolve_dependencies { #- parallel install. sub parallel_install { - my ($parallel, $urpm, $remove, $install, $upgrade, %options) = @_; + my ($parallel, $urpm, undef, $install, $upgrade, %options) = @_; foreach (keys %{$parallel->{nodes}}) { my $sources = join ' ', map { "'$_'" } values %$install, values %$upgrade; @@ -266,7 +266,7 @@ sub parallel_install { #- allow bootstrap from urpmi code directly (namespace is urpm). package urpm; sub handle_parallel_options { - my ($urpm, $options) = @_; + my (undef, $options) = @_; my ($id, @nodes) = split /:/, $options; if ($id =~ /^ssh(?:\(([^\)]*)\))?$/) { |