From 20a6882a0dc3ceaf6e5f5a071572d4422e31cf85 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Thu, 17 Jan 2002 15:50:26 +0000
Subject: avoid upgrading a package by selection on files unless it has been
 obsoleted.

---
 perl-install/pkgs.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index c02e7f3e7..36a439607 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -1102,7 +1102,7 @@ sub selectPackagesToUpgrade($$$;$$) {
 					 $toRemove{$otherPackage} = 1; #- force removing for theses other packages, select our.
 				     }
 				 } else {
-				     if (! exists $obsoletedPackages{c::headerGetEntry($header, 'name')}) {
+				     if (exists $obsoletedPackages{c::headerGetEntry($header, 'name')}) {
 					 my @files = c::headerGetEntry($header, 'filenames');
 					 @installedFilesForUpgrade{grep { ($_ !~ m|^/dev/| && $_ !~ m|^/etc/rc.d/| && $_ !~ m|\.la$| &&
 									   ! -d "$prefix/$_" && ! -l "$prefix/$_") } @files} = ();
-- 
cgit v1.2.1