From 7eaa068a41baf52ecb9e7c59a621593e5b391902 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Thu, 19 Apr 2012 18:31:43 +0000
Subject: (_resolve_requested_and_check) explain

---
 perl-install/install/pkgs.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'perl-install')

diff --git a/perl-install/install/pkgs.pm b/perl-install/install/pkgs.pm
index 266c0a5b9..dcdceb45c 100644
--- a/perl-install/install/pkgs.pm
+++ b/perl-install/install/pkgs.pm
@@ -280,6 +280,7 @@ sub _resolve_requested_and_check {
     my @l = $packages->resolve_requested($packages->{rpmdb}, $state, $requested,
 					 callback_choices => \&packageCallbackChoices, no_suggests => $::o->{no_suggests});
 
+    #- keep track of suggested packages so that theys could be unselected if the "no suggests" option is choosen later:
     if (!is_empty_hash_ref($state->{selected})) {
         my @new_ids = map { $packages->{depslist}[$_]->id } grep { $state->{selected}{$_}{suggested} } keys $state->{selected};
         @suggested_package_ids = uniq(@suggested_package_ids, @new_ids);
-- 
cgit v1.2.1