From b49f2707d2f87fb34f120a83e968f660acbdfa6b Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Fri, 2 Mar 2012 16:46:17 +0000
Subject: (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"
---
 perl-install/install/pkgs.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/install/pkgs.pm')

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.
-- 
cgit v1.2.1