summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
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);
};