diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2005-09-02 09:06:43 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2005-09-02 09:06:43 +0000 |
| commit | 67d56cfa0933862ef8c9330a3a0da873c9188a79 (patch) | |
| tree | dcbccb35d825d4ac9b0dfc2e07f3e1c15ef47dc3 /perl-install/install_any.pm | |
| parent | cd149734943cb3afee3189320d68df3cc7c58eed (diff) | |
| download | drakx-67d56cfa0933862ef8c9330a3a0da873c9188a79.tar drakx-67d56cfa0933862ef8c9330a3a0da873c9188a79.tar.gz drakx-67d56cfa0933862ef8c9330a3a0da873c9188a79.tar.bz2 drakx-67d56cfa0933862ef8c9330a3a0da873c9188a79.tar.xz drakx-67d56cfa0933862ef8c9330a3a0da873c9188a79.zip | |
hoist things in install_any
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 { |