From 32b7ffb237019699a63af09d6b41401fd8874054 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Tue, 1 Aug 2000 09:31:06 +0000 Subject: *** empty log message *** --- perl-install/ChangeLog | 4 ++++ perl-install/pkgs.pm | 10 ++++++---- 2 files changed, 10 insertions(+), 4 deletions(-) diff --git a/perl-install/ChangeLog b/perl-install/ChangeLog index 380879269..810ec8ba4 100644 --- a/perl-install/ChangeLog +++ b/perl-install/ChangeLog @@ -1,3 +1,7 @@ +2000-08-01 François Pons + + * pkgs.pm: fixed the below fixe, now ok. + 2000-07-31 François Pons * pkgs.pm: fixed provided package with choice in deps used with a 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