From 0d89ca47312e310280f57ea6f56bd534a0133dae Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Fri, 6 Sep 2002 11:29:21 +0000
Subject: allow obsoleted packages to be taken into account.

---
 perl-install/pkgs.pm | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'perl-install')

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);
 			}
-- 
cgit v1.2.1