summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-03-02 16:46:17 +0000
committerThierry Vignaud <tv@mageia.org>2012-03-02 16:46:17 +0000
commitb49f2707d2f87fb34f120a83e968f660acbdfa6b (patch)
treec35e4177a3832a3a8d09f183dc09705db208b9dc /perl-install
parent4b04295a7d1bd56852292385890bb0d49120cec5 (diff)
downloaddrakx-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.pm4
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.