summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-01-06 16:59:59 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-01-06 16:59:59 +0000
commitd5bdac3e48cbdf2317dc6bcf98cd5a5117af5ac0 (patch)
tree2bca6d1b00697187accfd23278ddfec65c4c4714 /perl-install
parenta2ce19815e8ddc15a4833edc498383ca99db40e5 (diff)
downloaddrakx-d5bdac3e48cbdf2317dc6bcf98cd5a5117af5ac0.tar
drakx-d5bdac3e48cbdf2317dc6bcf98cd5a5117af5ac0.tar.gz
drakx-d5bdac3e48cbdf2317dc6bcf98cd5a5117af5ac0.tar.bz2
drakx-d5bdac3e48cbdf2317dc6bcf98cd5a5117af5ac0.tar.xz
drakx-d5bdac3e48cbdf2317dc6bcf98cd5a5117af5ac0.zip
perl_checker compliance
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps_interactive.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 8bb5cae52..2bb3caad5 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -426,11 +426,11 @@ sub choosePackages {
}
sub choosePackagesTree {
- my ($o, $packages, $limit_to_medium) = @_;
+ my ($o, $packages, $o_limit_to_medium) = @_;
$o->ask_many_from_list('', N("Choose the packages you want to install"),
{
- list => [ grep { !$limit_to_medium || pkgs::packageMedium($packages, $_) == $limit_to_medium }
+ list => [ grep { !$o_limit_to_medium || pkgs::packageMedium($packages, $_) == $o_limit_to_medium }
@{$packages->{depslist}} ],
value => \&URPM::Package::flag_selected,
label => \&URPM::Package::name,