From 859695925c701d7408c0f97825512e2260998fd2 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 21 Dec 2004 14:08:43 +0000 Subject: don't pass prefix, use $::prefix --- perl-install/install_steps_interactive.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 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 12ae966bb..45cc0fb09 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -391,11 +391,11 @@ sub setPackages { install_any::setPackages($o, $rebuild_needed); $w->set(N("Looking at packages already installed...")); - pkgs::selectPackagesAlreadyInstalled($o->{packages}, $o->{prefix}); + pkgs::selectPackagesAlreadyInstalled($o->{packages}); if ($rebuild_needed) { $w->set(N("Finding packages to upgrade...")); - pkgs::selectPackagesToUpgrade($o->{packages}, $o->{prefix}); + pkgs::selectPackagesToUpgrade($o->{packages}); } } @@ -852,7 +852,7 @@ Do you want to install the updates?")), eval { if ($u->{mirror}) { my $_w = $o->wait_message('', N("Contacting the mirror to get the list of available packages...")); - $update_medium = crypto::getPackages($o->{prefix}, $o->{packages}, $u->{mirror}); + $update_medium = crypto::getPackages($o->{packages}, $u->{mirror}); } }; } while $@ || !$update_medium && $o->ask_yesorno('', N("Unable to contact mirror %s", $u->{mirror}) . ($@ ? " :\n$@" : "") . "\n\n" . N("Would you like to try again?")); -- cgit v1.2.1