From 0d5b858326902d2c02393dc26ddab7e70b6582c4 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Sat, 23 Jun 2012 06:43:23 +0000
Subject: (setSelectedFromCompssList) log why we unselect suggested package
 (too big...)

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

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

diff --git a/perl-install/install/pkgs.pm b/perl-install/install/pkgs.pm
index 9eb514028..bb12e9cac 100644
--- a/perl-install/install/pkgs.pm
+++ b/perl-install/install/pkgs.pm
@@ -458,6 +458,7 @@ sub setSelectedFromCompssList {
 	    $nb += $_->size;
 	}
 	if ($max_size && $nb > $max_size) {
+	    log::l("disabling selected packages because too big for level $level: $nb > $max_size");
 	    $nb = $old_nb;
 	    $min_level = $level;
 	    $packages->disable_selected($packages->{rpmdb}, $state, @$l);
-- 
cgit v1.2.1