From 1ac2349ae9e3dbb5c0a7f8a01cacf29428bcd7fe Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 1 Mar 2004 10:48:24 +0000
Subject: do not use $o in crypto.pm, pass {distro_type} to mirrors() and
 bestMirror() instead

---
 perl-install/install_steps_interactive.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 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 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 => '|',
-- 
cgit v1.2.1