summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-06-08 08:22:32 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-06-08 08:22:32 +0000
commit4561693cb39d708ee1e46d1ef96e2ff5a3b3d1fa (patch)
treeef93ce1bad52d549089313733bfd11cbbd3402bf
parent68112d100439476f07d3c7f37dad4bdc743fd531 (diff)
downloadurpmi-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.pm8
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(?:\(([^\)]*)\))?$/) {