From f59baab5976948265cd839347cde693cb43a2c4a Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 12 Feb 2004 20:59:55 +0000 Subject: change return type of pkgs::packages2kernels() --- perl-install/install_any.pm | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) (limited to 'perl-install/install_any.pm') diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index a57a4d537..2b49f4df2 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -305,11 +305,10 @@ sub setPackages { ($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'); + 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. -- cgit v1.2.1