diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/mirror.pm | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/perl-install/mirror.pm b/perl-install/mirror.pm index b61f24066..d725429f2 100644 --- a/perl-install/mirror.pm +++ b/perl-install/mirror.pm @@ -54,12 +54,11 @@ sub register_downloader { } sub mirrors_raw { - my ($product_id, $o_arch) = @_; + my ($product_id) = @_; #- 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; - local $product_id->{arch} = $o_arch if $o_arch; my $list = "http://api.mandriva.com/mirrors/$type.$product_id->{version}.$product_id->{arch}.list"; log::explanations("trying mirror list from $list"); my @lines; @@ -84,14 +83,11 @@ sub mirrors_raw { } sub list { - my ($product_id, $type, $o_arch) = @_; + my ($product_id, $type) = @_; our @mirrors_raw; - state $prev_arch; - undef @mirrors_raw if $prev_arch ne $o_arch; - $prev_arch = $o_arch || arch(); if (!@mirrors_raw) { - @mirrors_raw = eval { mirrors_raw($product_id, $o_arch) }; + @mirrors_raw = eval { mirrors_raw($product_id) }; if (my $err = $@) { log::explanations("failed to download mirror list"); die $err; |