diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-03-02 16:46:17 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-03-02 16:46:17 +0000 |
| commit | b49f2707d2f87fb34f120a83e968f660acbdfa6b (patch) | |
| tree | c35e4177a3832a3a8d09f183dc09705db208b9dc /perl-install | |
| parent | 4b04295a7d1bd56852292385890bb0d49120cec5 (diff) | |
| download | drakx-backup-do-not-use-b49f2707d2f87fb34f120a83e968f660acbdfa6b.tar drakx-backup-do-not-use-b49f2707d2f87fb34f120a83e968f660acbdfa6b.tar.gz drakx-backup-do-not-use-b49f2707d2f87fb34f120a83e968f660acbdfa6b.tar.bz2 drakx-backup-do-not-use-b49f2707d2f87fb34f120a83e968f660acbdfa6b.tar.xz drakx-backup-do-not-use-b49f2707d2f87fb34f120a83e968f660acbdfa6b.zip | |
(setSelectedFromCompssList) fix bogus "no packages match
HASH(0x6939a20) (it is either in skip.list or already rejected)"
messages in drakx logs
They got introduced by pterjan in commit r267278 on Apr 1 2010 and
r267288 on Apr 2 2010:
- "compute dependencies on full list of packages from a rpmsrate level
instead of doing it individually..."
- "Use all included levels to resolv dependencies instead of doing it
level by level"
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install/pkgs.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/install/pkgs.pm b/perl-install/install/pkgs.pm index 0601c94ae..63e33021d 100644 --- a/perl-install/install/pkgs.pm +++ b/perl-install/install/pkgs.pm @@ -383,7 +383,7 @@ sub setSelectedFromCompssList { $rpmsrate_flags_chosen->{TRUE} = 1; #- ensure TRUE is set my $nb = selectedSize($packages); - my %pkgs = {}; + my %pkgs; foreach my $p (@{$packages->{depslist}}) { my @flags = $p->rflags; next if @@ -392,7 +392,7 @@ sub setSelectedFromCompssList { $pkgs{$p->rate} ||= {}; $pkgs{$p->rate}{$p->id} = 1 if _packageRequest($packages, $p); } - my %pkgswanted = {}; + my %pkgswanted; foreach my $level (sort { $b <=> $a } keys %pkgs) { #- determine the packages that will be selected #- the packages are not selected. |