diff options
| author | Francois Pons <fpons@mandriva.com> | 2003-08-04 18:26:30 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2003-08-04 18:26:30 +0000 |
| commit | 9597583f421d4bf17d291e9a2321323fdd26d25c (patch) | |
| tree | 27774e2a39205adea742793f0ab1147a5b5ea04b /perl-install | |
| parent | 3a5fd47e26a3f597e8dc5cdc89ef5e7c0705dd85 (diff) | |
| download | drakx-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.pm | 2 |
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); |