(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"

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.