diff options
| -rw-r--r-- | perl-install/install_steps_interactive.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index 5cace73cb..4c8f6fc63 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -490,12 +490,12 @@ sub setPackages { _("Looking for available packages...")); install_any::setPackages($o, $rebuild_needed); + $w->set(_("Looking at packages already installed...")); + pkgs::selectPackagesAlreadyInstalled($o->{packages}, $o->{prefix}); + if ($rebuild_needed) { $w->set(_("Finding packages to upgrade...")); - pkgs::selectPackagesToUpgrade($o->{packages}, $o->{prefix}, $o->{base}, $o->{toRemove}, $o->{toSave}); - } else { - $w->set(_("Looking at packages already installed...")); - pkgs::selectPackagesAlreadyInstalled($o->{packages}, $o->{prefix}); + pkgs::selectPackagesToUpgrade($o->{packages}, $o->{prefix}); } } #------------------------------------------------------------------------------ |