From 67d56cfa0933862ef8c9330a3a0da873c9188a79 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 2 Sep 2005 09:06:43 +0000
Subject: hoist things in install_any

---
 perl-install/install_steps_interactive.pm | 10 +---------
 1 file changed, 1 insertion(+), 9 deletions(-)

(limited to 'perl-install/install_steps_interactive.pm')

diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index a87b4caf5..cdd1cfebd 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -399,15 +399,7 @@ sub setPackages {
 
     my $w = $o->wait_message('', $o->{isUpgrade} ? N("Looking for available packages and rebuilding rpm database...") :
 			     N("Looking for available packages..."));
-    install_any::setPackages($o);
-
-    $w->set(N("Looking at packages already installed..."));
-    pkgs::selectPackagesAlreadyInstalled($o->{packages});
-
-    if ($o->{isUpgrade}) {
-	$w->set(N("Finding packages to upgrade..."));
-	pkgs::selectPackagesToUpgrade($o->{packages});
-    }
+    install_any::setPackages($o, sub { $w->set(@_) });
 }
 
 sub mirror2text { $crypto::mirrors{$_[0]} ? $crypto::mirrors{$_[0]}[0] . '|' . $_[0] : "-|URL" }
-- 
cgit v1.2.1