From f767bf7493bd00eae8719d5c590ef0c7366fe59a Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Wed, 12 Apr 2000 14:40:16 +0000
Subject: *** empty log message ***

---
 perl-install/install_steps.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/install_steps.pm')

diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index df669f465..cabd1e724 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -241,8 +241,8 @@ sub installPackages($$) { #- complete REWORK, TODO and TOCHECK!
     }
 
     #- small transaction will be built based on this selection and depslist.
-    my @toInstall = grep { pkgs::packageFlagSelected($_) && !pkgs::packageFlagInstalled($_) } values %{$packages->[0]};
-    pkgs::install($o->{prefix}, $o->{isUpgrade}, \@toInstall, $o->{packages}[1], $o->{packages}[2]);
+    my @toInstall = pkgs::packagesToInstall($packages);
+    pkgs::install($o->{prefix}, $o->{isUpgrade}, \@toInstall, $packages->[1], $packages->[2]);
 }
 
 sub afterInstallPackages($) {
-- 
cgit v1.2.1