summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2002-07-16 10:00:09 +0000
committerFrancois Pons <fpons@mandriva.com>2002-07-16 10:00:09 +0000
commit6c2176784bc66522e32deafb394e09b67dfa281f (patch)
tree630049f9d3f524065b9a194c3efc3b20b95546d9 /perl-install
parent26862fb502d727ef2222f6c801e710361fc8f8cd (diff)
downloaddrakx-backup-do-not-use-6c2176784bc66522e32deafb394e09b67dfa281f.tar
drakx-backup-do-not-use-6c2176784bc66522e32deafb394e09b67dfa281f.tar.gz
drakx-backup-do-not-use-6c2176784bc66522e32deafb394e09b67dfa281f.tar.bz2
drakx-backup-do-not-use-6c2176784bc66522e32deafb394e09b67dfa281f.tar.xz
drakx-backup-do-not-use-6c2176784bc66522e32deafb394e09b67dfa281f.zip
added log (finding packages to upgrade or computing installed flag)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/pkgs.pm3
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} = {};