diff options
author | Francois Pons <fpons@mandriva.com> | 2000-04-21 13:47:13 +0000 |
---|---|---|
committer | Francois Pons <fpons@mandriva.com> | 2000-04-21 13:47:13 +0000 |
commit | 44681afa40d50c3abed186ba405ee6a1aaeeb739 (patch) | |
tree | f78dfdc12588b70f3b584fbde37c10da9d258061 /perl-install/pkgs.pm | |
parent | f3b08d4d16cd2e89dc64f3d7025c413de6e2ea0e (diff) | |
download | drakx-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/pkgs.pm')
-rw-r--r-- | perl-install/pkgs.pm | 2 |
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); |