From 32b7ffb237019699a63af09d6b41401fd8874054 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Tue, 1 Aug 2000 09:31:06 +0000
Subject: *** empty log message ***

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

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

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 3bf3f2e93..af23fe99d 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -314,22 +314,24 @@ sub unselectPackage($$;$) {
     foreach my $provided ($pkg, packageProvides($pkg)) {
 	packageFlagBase($provided) and die "a provided package cannot be a base package";
 	if (packageFlagSelected($provided)) {
-	    $otherOnly or packageSetFlagSelected($provided, 0);
-	    $otherOnly and $otherOnly->{packageName($provided)} = 1;
+	    my $unselect_alone = 0;
 	    foreach (packageDepsId($provided)) {
 		if (/\|/) {
 		    #- this package use a choice of other package, so we have to check
 		    #- if our package is not included in the choice, if this is the
 		    #- case, if must be checked one of the other package are selected.
-		    my $unselect_alone = 0;
 		    foreach (split '\|') {
 			my $dep = packageById($packages, $_);
 			$dep == $pkg and $unselect_alone |= 1;
 			packageFlagBase($dep) || packageFlagSelected($dep) and $unselect_alone |= 2;
 		    }
-		    $unselect_alone == 3 and return;
 		}
 	    }
+	    #- provided will not be unselect here if the two conditions are met.
+	    $unselect_alone == 3 and next;
+	    #- on the other hand, provided package have to be unselected.
+	    $otherOnly or packageSetFlagSelected($provided, 0);
+	    $otherOnly and $otherOnly->{packageName($provided)} = 1;
 	}
 	foreach (map { split '\|' } packageDepsId($provided)) {
 	    my $dep = packageById($packages, $_);
-- 
cgit v1.2.1