From 6b4994e98d23a6926c2a2340a43125f81a22a1f2 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Mon, 12 Aug 2002 15:55:28 +0000
Subject: fixed stupid change (almost hope it was really changes).

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

(limited to 'perl-install/pkgs.pm')

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index f2b4a4e26..4dce1e796 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -679,7 +679,7 @@ sub computeGroupSize {
 	#- make a fast selection (but potentially erroneous).
 	#- installed and upgrade flags must have been computed (see compute_installed_flags).
 	my %newSelection;
-	unless ($p->flag_installed && !$p->flag_upgrade) {
+	unless ($p->flag_available) {
 	    my @l2 = ($p->id);
 	    my $id;
 
@@ -692,7 +692,7 @@ sub computeGroupSize {
 		    my ($candidate_id, $prefer_id);
 		    foreach (keys %{$packages->{provides}{$_} || {}}) {
 			my $ppkg = $packages->{depslist}[$_] or next;
-			$ppkg->flag_installed && !$p->flag_upgrade and $prefer_id = $candidate_id = undef, last;
+			$ppkg->flag_available and $prefer_id = $candidate_id = undef, last;
 			exists $preferred{$ppkg->name} and $prefer_id = $_;
 			$ppkg->name =~ /kernel-\d/ and $prefer_id ||= $_;
 			$candidate_id = $_;
-- 
cgit v1.2.1