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.pm8
1 files changed, 8 insertions, 0 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 3d4d9d672..833c3dae6 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -956,8 +956,16 @@ sub install($$$;$$) {
my @params = split ":";
if ($params[0] eq 'close') {
my $pkg = $packages->{depslist}[$params[1]];
+ #- update flag associated to package.
$pkg->set_flag_installed(1);
$pkg->set_flag_upgrade(0);
+ #- update obsoleted entry.
+ foreach (keys %{$packages->{state}{obsoleted}}) {
+ if (exists $packages->{state}{obsoleted}{$_}{$pkg->id}) {
+ delete $packages->{state}{obsoleted}{$_}{$pkg->id};
+ %{$packages->{state}{obsoleted}{$_}} or delete $packages->{state}{obsoleted}{$_};
+ }
+ }
} else {
installCallback($packages, @params);
}