diff options
| author | Francois Pons <fpons@mandriva.com> | 2002-07-16 10:00:09 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2002-07-16 10:00:09 +0000 |
| commit | 6c2176784bc66522e32deafb394e09b67dfa281f (patch) | |
| tree | 630049f9d3f524065b9a194c3efc3b20b95546d9 | |
| parent | 26862fb502d727ef2222f6c801e710361fc8f8cd (diff) | |
| download | drakx-6c2176784bc66522e32deafb394e09b67dfa281f.tar drakx-6c2176784bc66522e32deafb394e09b67dfa281f.tar.gz drakx-6c2176784bc66522e32deafb394e09b67dfa281f.tar.bz2 drakx-6c2176784bc66522e32deafb394e09b67dfa281f.tar.xz drakx-6c2176784bc66522e32deafb394e09b67dfa281f.zip | |
added log (finding packages to upgrade or computing installed flag)
| -rw-r--r-- | perl-install/pkgs.pm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index c0df1ba8c..e14a709c6 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -955,12 +955,15 @@ sub cleanOldRpmDb { sub selectPackagesAlreadyInstalled { my ($packages, $prefix) = @_; + log::l("computing installed flags only"); $packages->compute_installed_flags($packages->{rpmdb}); } sub selectPackagesToUpgrade { my ($packages, $prefix, $base, $toRemove, $toSave) = @_; + log::l("selecting packages to upgrade"); + my $state = $packages->{state} ||= {}; $state->{selected} = {}; $state->{requested} = {}; |