summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2003-08-04 18:26:30 +0000
committerFrancois Pons <fpons@mandriva.com>2003-08-04 18:26:30 +0000
commit9597583f421d4bf17d291e9a2321323fdd26d25c (patch)
tree27774e2a39205adea742793f0ab1147a5b5ea04b /perl-install
parent3a5fd47e26a3f597e8dc5cdc89ef5e7c0705dd85 (diff)
downloaddrakx-9597583f421d4bf17d291e9a2321323fdd26d25c.tar
drakx-9597583f421d4bf17d291e9a2321323fdd26d25c.tar.gz
drakx-9597583f421d4bf17d291e9a2321323fdd26d25c.tar.bz2
drakx-9597583f421d4bf17d291e9a2321323fdd26d25c.tar.xz
drakx-9597583f421d4bf17d291e9a2321323fdd26d25c.zip
added log.
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/pkgs.pm2
1 files changed, 2 insertions, 0 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index e298670a1..a13cfbf82 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -297,10 +297,12 @@ sub setPackageSelection($$$) {
sub unselectAllPackages($) {
my ($packages) = @_;
my %keep_selected;
+ log::l("unselecting all packages...");
foreach (@{$packages->{depslist}}) {
if ($_->flag_base || $_->flag_installed && $_->flag_selected) {
#- keep track of package that should be kept selected.
$keep_selected{$_->id} = $_;
+ log::l("...keeping ".$_->fullname);
} else {
#- deselect all packages except base or packages that need to be upgraded.
$_->set_flag_required(0);