diff options
| author | Francois Pons <fpons@mandriva.com> | 2002-08-20 15:15:04 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2002-08-20 15:15:04 +0000 |
| commit | 94ff48665088c56406cc3d6b0de8a0cb08fe3d6c (patch) | |
| tree | a560a0006a3abbfffce47d185fdd8e26ea887409 /perl-install | |
| parent | 833c241a01cd77f3d86e65109ac67d9090b808e4 (diff) | |
| download | drakx-94ff48665088c56406cc3d6b0de8a0cb08fe3d6c.tar drakx-94ff48665088c56406cc3d6b0de8a0cb08fe3d6c.tar.gz drakx-94ff48665088c56406cc3d6b0de8a0cb08fe3d6c.tar.bz2 drakx-94ff48665088c56406cc3d6b0de8a0cb08fe3d6c.tar.xz drakx-94ff48665088c56406cc3d6b0de8a0cb08fe3d6c.zip | |
fixed ldconfig not visible in packages tree.
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/pkgs.pm | 3 |
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) = @_; |