diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/bootloader.pm | 6 | ||||
| -rw-r--r-- | perl-install/install_any.pm | 7 | ||||
| -rw-r--r-- | perl-install/install_steps_interactive.pm | 7 |
3 files changed, 4 insertions, 16 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm index 9f66ab165..f0c9022f2 100644 --- a/perl-install/bootloader.pm +++ b/perl-install/bootloader.pm @@ -424,7 +424,9 @@ sub dev2prompath { #- SPARC only $dev; } -sub get_kernels_and_labels() { +sub get_kernels_and_labels { + my ($b_prefer_24) = @_; + my $dir = "$::prefix/boot"; my @l = grep { /^vmlinuz-/ } all($dir); my @kernels = grep { ! -l "$dir/$_" } @l; @@ -441,7 +443,7 @@ sub get_kernels_and_labels() { { complete_version => $_, /(.*mdk)(.*)/ ? (ext => $2, version => $1) : (version => $_) }; } @kernels; - if (-e "$::prefix/usr/lib/lsb") { + if ($b_prefer_24) { my ($kernel_24, $other) = partition { $_->{ext} eq '' && $_->{version} =~ /^\Q2.4/ } @kernels; @kernels = (@$kernel_24, @$other); } diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index 862d3711b..c3c2469ab 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -304,13 +304,6 @@ sub setPackages { pkgs::read_rpmsrate($o->{packages}, getFile("Mandrake/base/rpmsrate")); ($o->{compssUsers}, $o->{compssUsersSorted}) = pkgs::readCompssUsers($o->{meta_class}); - #- set kernel-2.4xxx in group LSB - foreach (grep { $_->{ext} eq '' && $_->{version} =~ /^\Q2.4/ } pkgs::packages2kernels($o->{packages})) { - $_->{pkg}->rate and internal_error("package " . $_->{pkg}->name . " should not have a rate"); - $_->{pkg}->set_rate(5); - $_->{pkg}->set_rflags('LSB'); - } - #- preselect default_packages and compssUsersChoices. setDefaultPackages($o); pkgs::selectPackage($o->{packages}, pkgs::packageByName($o->{packages}, $_) || next) foreach @{$o->{default_packages}}; diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index e0cd40286..cdb8def53 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -528,13 +528,6 @@ sub chooseGroups { $o->reallyChooseGroups($size_to_display, $individual, \%val) or return; - if ($val{'Development|LSB'}) { - $o->ask_okcancel('', -N("Due to incompatibilities of the 2.6 series kernel with the LSB runtime -tests, the 2.4 series kernel will be installed as the default to insure -compliance under the \"LSB\" group selection."), 1) or next; - } - last if $::testing || pkgs::correctSize($size / sqr(1024)) < $available_size; $o->ask_warn('', N("Selected size is larger than available space")); |