summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-03-07 13:06:10 +0000
committerFrancois Pons <fpons@mandriva.com>2000-03-07 13:06:10 +0000
commit26f5c1cfb24bff40293d312c04572ab38a0148a0 (patch)
tree91a6ad9428736e5f763f7c92fd25544e96b4bce7 /perl-install/pkgs.pm
parent51cbb8aad9b16ac231d4902568d7a63847cb996c (diff)
downloaddrakx-backup-do-not-use-26f5c1cfb24bff40293d312c04572ab38a0148a0.tar
drakx-backup-do-not-use-26f5c1cfb24bff40293d312c04572ab38a0148a0.tar.gz
drakx-backup-do-not-use-26f5c1cfb24bff40293d312c04572ab38a0148a0.tar.bz2
drakx-backup-do-not-use-26f5c1cfb24bff40293d312c04572ab38a0148a0.tar.xz
drakx-backup-do-not-use-26f5c1cfb24bff40293d312c04572ab38a0148a0.zip
*** empty log message ***
Diffstat (limited to 'perl-install/pkgs.pm')
-rw-r--r--perl-install/pkgs.pm6
1 files changed, 4 insertions, 2 deletions
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);
};