From 4124b22fb59ce95845241a78ca64d54bc6034db6 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 3 Sep 1999 21:37:43 +0000
Subject: no_comment

---
 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 86480ab70..a7e983c46 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -63,11 +63,11 @@ sub unselect($$) {
     my $changed = 1;
     while ($changed) {
 	$changed = 0;
-      NEXT: foreach my $p (grep { $_->{selected} > 0 } values %$packages) {
+      NEXT: foreach my $p (grep { $_->{selected} > 0 && !$_->{base} } values %$packages) {
 	    my $set = set_new(@{$p->{provides}});
 	    foreach (@{$set->{list}}) {
 		my $q = Package($packages, $_);
-		$q->{selected} == -1 and next NEXT;
+		$q->{selected} == -1 || $q->{base} and next NEXT;
 		set_add($set, @{$q->{provides}}) if $q->{selected};
 	    }
 	    $p->{selected} = 0;
-- 
cgit v1.2.1