From 1bef0e5375fedb9a2cc24de85c10190f1ac0a1f6 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Thu, 18 Jul 2002 15:48:24 +0000
Subject: really fixes it.

---
 perl-install/install_any.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 34ecbd629..e7b91bf2c 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -165,7 +165,7 @@ sub setup_postinstall_rpms($$) {
 	pkgs::selectPackage($packages, $p, 0, \%toCopy);
     }
 
-    my @toCopy = grep { $_ && !$_->flag_selected } map { pkgs::packageByName($packages, $_) } keys %toCopy;
+    my @toCopy = grep { $_ && !$_->flag_selected } map { $packages->{depslist}[$_] } keys %toCopy;
 
     #- extract headers of package, this is necessary for getting
     #- the complete filename of each package.
-- 
cgit v1.2.1