summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-01-08 18:15:23 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-01-08 18:15:23 +0000
commitfcd3259e9b2164520857d300f45588307de5b2cf (patch)
treef86565cab151a03d58b284144eb64839eb62cc6a /perl-install/interactive.pm
parent2e4efa0d049800bc26d42131527c4af2e5be8272 (diff)
downloaddrakx-fcd3259e9b2164520857d300f45588307de5b2cf.tar
drakx-fcd3259e9b2164520857d300f45588307de5b2cf.tar.gz
drakx-fcd3259e9b2164520857d300f45588307de5b2cf.tar.bz2
drakx-fcd3259e9b2164520857d300f45588307de5b2cf.tar.xz
drakx-fcd3259e9b2164520857d300f45588307de5b2cf.zip
fixes
Diffstat (limited to 'perl-install/interactive.pm')
-rw-r--r--perl-install/interactive.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index fd1fbe059..e23206d4c 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -224,12 +224,12 @@ sub ask_from_entries_refH_powered_normalize {
sub ask_from_entries_refH_powered {
my ($o, $common, $l) = @_;
ask_from_entries_refH_powered_normalize($o, $common, $l);
+ @$l or return 1;
$o->ask_from_entries_refW($common, [ grep { !$_->{advanced} } @$l ], [ grep { $_->{advanced} } @$l ]);
}
sub ask_from_entries_refH_powered_no_check {
my ($o, $common, $l) = @_;
ask_from_entries_refH_powered_normalize($o, $common, $l);
- @$l or return 1;
$o->ask_from_entries_refW($common, [ grep { !$_->{advanced} } @$l ], [ grep { $_->{advanced} } @$l ]);
}