From 7afaa567f5059510ecdea266b67679810a81bf0b Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Wed, 13 Oct 1999 15:37:20 +0000
Subject: *** empty log message ***

---
 perl-install/install_steps.pm | 7 +++++--
 1 file changed, 5 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 8188fa87f..6794899f7 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -181,8 +181,11 @@ sub beforeInstallPackages {
 
 sub installPackages($$) {
     my ($o, $packages) = @_;
-    my $toInstall = [ grep { $_->{selected} && !$_->{installed} } values %$packages ];
-    pkgs::install($o->{prefix}, $toInstall);
+    #-    my $toInstall = [ grep { $_->{selected} && !$_->{installed} } values %$packages ];
+    my @toInstall = $packages->{basesystem}{selected} && !$packages->{basesystem}{installed} ? ($packages->{basesystem}) : ();
+    push @toInstall, grep { $_->{base} && $_->{selected} && !$_->{installed} } values %$packages;
+    push @toInstall, grep { !$_->{base} && $_->{selected} && !$_->{installed} } values %$packages;
+    pkgs::install($o->{prefix}, \@toInstall);
 }
 
 sub afterInstallPackages($) {
-- 
cgit v1.2.1