summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2002-08-20 15:15:04 +0000
committerFrancois Pons <fpons@mandriva.com>2002-08-20 15:15:04 +0000
commit94ff48665088c56406cc3d6b0de8a0cb08fe3d6c (patch)
treea560a0006a3abbfffce47d185fdd8e26ea887409
parent833c241a01cd77f3d86e65109ac67d9090b808e4 (diff)
downloaddrakx-94ff48665088c56406cc3d6b0de8a0cb08fe3d6c.tar
drakx-94ff48665088c56406cc3d6b0de8a0cb08fe3d6c.tar.gz
drakx-94ff48665088c56406cc3d6b0de8a0cb08fe3d6c.tar.bz2
drakx-94ff48665088c56406cc3d6b0de8a0cb08fe3d6c.tar.xz
drakx-94ff48665088c56406cc3d6b0de8a0cb08fe3d6c.zip
fixed ldconfig not visible in packages tree.
-rw-r--r--perl-install/pkgs.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 9c15a2ea8..fc26cece0 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -46,6 +46,7 @@ my %ignoreBadPkg = (
sub packageMedium { my ($packages, $p) = @_; $p or die "invalid package from\n" . backtrace();
foreach (values %{$packages->{mediums}}) {
+ defined $_->{start} && defined $_->{end} or next;
$p->id >= $_->{start} && $p->id <= $_->{end} and return $_;
}
return }
@@ -177,7 +178,7 @@ sub bestKernelPackage {
sub packagesOfMedium {
my ($packages, $medium) = @_;
- $medium->{start} <= $medium->{end} ? @{$packages->{depslist}}[$medium->{start} .. $medium->{end}] : ();
+ defined $medium->{start} && defined $medium->{end} ? @{$packages->{depslist}}[$medium->{start} .. $medium->{end}] : ();
}
sub packagesToInstall {
my ($packages) = @_;