From 26f5c1cfb24bff40293d312c04572ab38a0148a0 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Tue, 7 Mar 2000 13:06:10 +0000
Subject: *** empty log message ***

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

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

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index e47b03d65..7987fae7d 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -176,6 +176,9 @@ sub selectPackage($$;$$) {
     #- do not select in such case.
     packageFlagInstalled($pkg) and return;
 
+    #- make sure base package are set even if already selected.
+    $base and packageSetFlagBase($pkg, 1);
+
     #- select package and dependancies, otherOnly may be a reference
     #- to a hash to indicate package that will strictly be selected
     #- when value is true, may be selected when value is false (this
@@ -205,7 +208,6 @@ sub selectPackage($$;$$) {
 	    }
 	}
     }
-    $base and packageSetFlagBase($pkg, 1);
     $otherOnly and packageFlagSelected($pkg) and $otherOnly->{packageName($pkg)} = 1;
     $otherOnly or packageSetFlagSelected($pkg, 1+packageFlagSelected($pkg));
     1;
@@ -738,7 +740,7 @@ sub install($$$;$) {
 	c::rpmtransAddPackage($trans, $_->{header}, packageName($_), $isUpgrade && packageName($_) !~ /kernel/) #- TODO: replace `named kernel' by `provides kernel'
 	    foreach @transToInstall;
 
-	my $close = sub {		  
+	my $close = sub {
 #	    c::headerFree(delete $_->{header}) foreach @transToInstall;
 	    c::rpmtransFree($trans);
 	};
-- 
cgit v1.2.1