summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-04-21 13:47:13 +0000
committerFrancois Pons <fpons@mandriva.com>2000-04-21 13:47:13 +0000
commit44681afa40d50c3abed186ba405ee6a1aaeeb739 (patch)
treef78dfdc12588b70f3b584fbde37c10da9d258061 /perl-install
parentf3b08d4d16cd2e89dc64f3d7025c413de6e2ea0e (diff)
downloaddrakx-44681afa40d50c3abed186ba405ee6a1aaeeb739.tar
drakx-44681afa40d50c3abed186ba405ee6a1aaeeb739.tar.gz
drakx-44681afa40d50c3abed186ba405ee6a1aaeeb739.tar.bz2
drakx-44681afa40d50c3abed186ba405ee6a1aaeeb739.tar.xz
drakx-44681afa40d50c3abed186ba405ee6a1aaeeb739.zip
*** empty log message ***
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/pkgs.pm2
1 files changed, 2 insertions, 0 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 605dcb86e..1c2125b1a 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -589,6 +589,8 @@ sub setSelectedFromCompssList {
my @values = map { $_->{values}[$ind] + (packageFlagUnskip($_) && packageName($_) !~ /^k/ ? 10 : 0) } @packages;
sort { $values[$b] <=> $values[$a] } 0 .. $#packages;
};
+ #- select at least 25 for beginner installation.
+ $min_level < 25 && $::beginner and $min_level = 25;
foreach (@places) {
my $p = $packages[$_];
next if packageFlagSkip($p);