summaryrefslogtreecommitdiffstats
path: root/perl-install/modules
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-04-17 11:34:32 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-04-17 11:34:32 +0000
commit4781e491c32fdfe0dbe3cf97a8aca90040a9406b (patch)
treeca4f166763cc8be7bc01e943dcbf5a058758060d /perl-install/modules
parent5458ef92ec80fab427e4d69b5cdd22bb76b261d8 (diff)
downloaddrakx-4781e491c32fdfe0dbe3cf97a8aca90040a9406b.tar
drakx-4781e491c32fdfe0dbe3cf97a8aca90040a9406b.tar.gz
drakx-4781e491c32fdfe0dbe3cf97a8aca90040a9406b.tar.bz2
drakx-4781e491c32fdfe0dbe3cf97a8aca90040a9406b.tar.xz
drakx-4781e491c32fdfe0dbe3cf97a8aca90040a9406b.zip
new perl_checker compliance
Diffstat (limited to 'perl-install/modules')
-rw-r--r--perl-install/modules/interactive.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/modules/interactive.pm b/perl-install/modules/interactive.pm
index cdf1c2a0c..f7b7801e9 100644
--- a/perl-install/modules/interactive.pm
+++ b/perl-install/modules/interactive.pm
@@ -24,23 +24,23 @@ sub config_window {
}
sub load_category {
- my ($in, $category, $auto, $at_least_one) = @_;
+ my ($in, $category, $b_auto, $b_at_least_one) = @_;
my @l;
{
my $w;
my $wait_message = sub { $w = wait_load_module($in, $category, @_) };
@l = modules::load_category($category, $wait_message);
- @l = modules::load_category($category, $wait_message, 'force') if !@l && $at_least_one;
+ @l = modules::load_category($category, $wait_message, 'force') if !@l && $b_at_least_one;
}
if (my @err = grep { $_ } map { $_->{error} } @l) {
$in->ask_warn('', join("\n", @err));
}
- return @l if $auto && (@l || !$at_least_one);
+ return @l if $b_auto && (@l || !$b_at_least_one);
@l = map { $_->{description} } @l;
- if ($at_least_one && !@l) {
+ if ($b_at_least_one && !@l) {
@l = load_category__prompt($in, $category) or return;
}