diff options
Diffstat (limited to 'perl-install/install_any.pm')
| -rw-r--r-- | perl-install/install_any.pm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index cf4030cce..cf26dba25 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -636,7 +636,7 @@ sub load_rate_files { } sub setPackages { - my ($o) = @_; + my ($o, $wait_message) = @_; require pkgs; if (!$o->{packages} || is_empty_array_ref($o->{packages}{depslist})) { @@ -674,6 +674,14 @@ sub setPackages { #- open rpm db (always without rebuilding db, it should be false at this point). $o->{packages}{rpmdb} ||= pkgs::rpmDbOpen(); } + + $wait_message->(N("Looking at packages already installed...")); + pkgs::selectPackagesAlreadyInstalled($o->{packages}); + + if ($o->{isUpgrade}) { + $wait_message->(N("Finding packages to upgrade...")); + pkgs::selectPackagesToUpgrade($o->{packages}); + } } sub count_files { |