From 94ff48665088c56406cc3d6b0de8a0cb08fe3d6c Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Tue, 20 Aug 2002 15:15:04 +0000
Subject: fixed ldconfig not visible in packages tree.

---
 perl-install/pkgs.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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) = @_;
-- 
cgit v1.2.1