diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-12-21 14:08:43 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-12-21 14:08:43 +0000 |
| commit | 859695925c701d7408c0f97825512e2260998fd2 (patch) | |
| tree | d6e8d6c2ef903bebd5d9c235bc8922cc86ac3f29 /perl-install/install_steps_interactive.pm | |
| parent | 1275f71751148da1433ab6cc0c69124fb3d05baa (diff) | |
| download | drakx-backup-do-not-use-859695925c701d7408c0f97825512e2260998fd2.tar drakx-backup-do-not-use-859695925c701d7408c0f97825512e2260998fd2.tar.gz drakx-backup-do-not-use-859695925c701d7408c0f97825512e2260998fd2.tar.bz2 drakx-backup-do-not-use-859695925c701d7408c0f97825512e2260998fd2.tar.xz drakx-backup-do-not-use-859695925c701d7408c0f97825512e2260998fd2.zip | |
don't pass prefix, use $::prefix
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
| -rw-r--r-- | perl-install/install_steps_interactive.pm | 6 |
1 files changed, 3 insertions, 3 deletions
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?")); |