summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/NEWS2
-rw-r--r--perl-install/install/NEWS2
-rw-r--r--perl-install/mirror.pm2
3 files changed, 5 insertions, 1 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS
index 653602c28..fd4fad1d9 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,3 +1,5 @@
+- add product type to URL when fetching mirror list
+
Version 11.5 - 6 August 2008
- fix more strange focus bugs
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 1223dfb60..a1759f064 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,5 @@
+- add product type to URL when fetching mirror list
+
Version 11.3 - 4 August 2008
- fix spacing around buttons
diff --git a/perl-install/mirror.pm b/perl-install/mirror.pm
index d725429f2..a37955669 100644
--- a/perl-install/mirror.pm
+++ b/perl-install/mirror.pm
@@ -59,7 +59,7 @@ sub mirrors_raw {
#- contact the following URL to retrieve the list of mirrors.
#- http://wiki.mandriva.com/en/Product_id
my $type = lc($product_id->{type}); $type =~ s/\s//g;
- my $list = "http://api.mandriva.com/mirrors/$type.$product_id->{version}.$product_id->{arch}.list";
+ my $list = "http://api.mandriva.com/mirrors/$type.$product_id->{version}.$product_id->{arch}.list?product=$product_id->{product}";
log::explanations("trying mirror list from $list");
my @lines;
if ($::isInstall) {