added log (finding packages to upgrade or computing installed flag)

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} = {};