summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-03-01 10:48:24 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-03-01 10:48:24 +0000
commit1ac2349ae9e3dbb5c0a7f8a01cacf29428bcd7fe (patch)
tree725603880fb78ad181d9a2a02c21f5cacb7ca0e4 /perl-install/install_steps_interactive.pm
parent47d47ee4572a6de788858c6fd05d5391b048173d (diff)
downloaddrakx-1ac2349ae9e3dbb5c0a7f8a01cacf29428bcd7fe.tar
drakx-1ac2349ae9e3dbb5c0a7f8a01cacf29428bcd7fe.tar.gz
drakx-1ac2349ae9e3dbb5c0a7f8a01cacf29428bcd7fe.tar.bz2
drakx-1ac2349ae9e3dbb5c0a7f8a01cacf29428bcd7fe.tar.xz
drakx-1ac2349ae9e3dbb5c0a7f8a01cacf29428bcd7fe.zip
do not use $o in crypto.pm, pass {distro_type} to mirrors() and bestMirror() instead
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm5
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 0922af7ab..02f032b8f 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -780,9 +780,10 @@ Do you want to install the updates ?")),
eval {
my @mirrors = do {
my $_w = $o->wait_message('', N("Contacting Mandrake Linux web site to get the list of available mirrors..."));
- crypto::mirrors() };
+ crypto::mirrors($o->{distro_type});
+ };
#- if no mirror have been found, use current time zone and propose among available.
- $u->{mirror} ||= crypto::bestMirror($o->{timezone}{timezone});
+ $u->{mirror} ||= crypto::bestMirror($o->{timezone}{timezone}, $o->{distro_type});
$o->ask_from_({ messages => N("Choose a mirror from which to get the packages"),
cancel => N("Cancel"),
}, [ { separator => '|',