From 9f8040ddd852bf82d0ad1d71ee4e6ef5a8fa0d10 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 12 Feb 2004 20:37:10 +0000 Subject: add kernel-2.4* in group LSB --- perl-install/install_any.pm | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'perl-install/install_any.pm') diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index d6ffaef5c..a57a4d537 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -304,6 +304,14 @@ 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 { $_->[1] eq '' && $_->[2] =~ /^\Q2.4/ } pkgs::packages2kernels($o->{packages})) { + my $pkg = $_->[0]; + $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}}; -- cgit v1.2.1