From 9597583f421d4bf17d291e9a2321323fdd26d25c Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Mon, 4 Aug 2003 18:26:30 +0000
Subject: added log.

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

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

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