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/pkgs.pm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'perl-install/pkgs.pm') diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index 1cf32fba7..b61755b8c 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -174,7 +174,7 @@ sub packages2kernels { map { my $pkg = $packages->{depslist}[$_]; if (my ($ext, $version) = analyse_kernel_name($pkg->name)) { - [ $pkg, $ext, $version ]; + { pkg => $pkg, ext => $ext, version => $version }; } else { log::l("ERROR: unknown package " . $pkg->name . " providing kernel"); (); @@ -187,16 +187,16 @@ sub bestKernelPackage { my @kernels = packages2kernels($packages) or internal_error('no kernel available'); my ($version_BOOT) = c::kernel_version() =~ /^(\d+\.\d+)/; - if (my @l = grep { $_->[2] =~ /\Q$version_BOOT/ } @kernels) { + if (my @l = grep { $_->{version} =~ /\Q$version_BOOT/ } @kernels) { #- favour versions corresponding to current BOOT version @kernels = @l; } - if (my @l = grep { $_->[1] eq '' } @kernels) { + if (my @l = grep { $_->{ext} eq '' } @kernels) { @kernels = @l; } - log::l("bestKernelPackage: " . join(' ', map { $_->[0]->name } @kernels) . (@kernels > 1 ? ' (choosing the first)' : '')); - $kernels[0][0]; + log::l("bestKernelPackage: " . join(' ', map { $_->{pkg}->name } @kernels) . (@kernels > 1 ? ' (choosing the first)' : '')); + $kernels[0]{pkg}; } sub packagesOfMedium { -- cgit v1.2.1