diff options
Diffstat (limited to 'perl-install/pkgs.pm')
| -rw-r--r-- | perl-install/pkgs.pm | 6 |
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); }; |