diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-09-03 21:37:43 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-09-03 21:37:43 +0000 |
| commit | 4124b22fb59ce95845241a78ca64d54bc6034db6 (patch) | |
| tree | 8e44587ad92594f6d9eb9ba88c158c4101c8e2dd /perl-install/pkgs.pm | |
| parent | f24c7b3ac6e3415166c18ea0df44c0777ae7a9e1 (diff) | |
| download | drakx-4124b22fb59ce95845241a78ca64d54bc6034db6.tar drakx-4124b22fb59ce95845241a78ca64d54bc6034db6.tar.gz drakx-4124b22fb59ce95845241a78ca64d54bc6034db6.tar.bz2 drakx-4124b22fb59ce95845241a78ca64d54bc6034db6.tar.xz drakx-4124b22fb59ce95845241a78ca64d54bc6034db6.zip | |
no_comment
Diffstat (limited to 'perl-install/pkgs.pm')
| -rw-r--r-- | perl-install/pkgs.pm | 4 |
1 files changed, 2 insertions, 2 deletions
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; |