summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-05-23 18:27:36 +0000
committerThierry Vignaud <tv@mageia.org>2012-05-23 18:27:36 +0000
commit8881e4939a751f6a10263aabf77da05abb165c76 (patch)
tree1a77e70d93c8eb2a4ec062b0bb8e23ab50798685 /perl-install
parent6e2582725a083b47c0f0c0c3c25de4052754a38f (diff)
downloaddrakx-backup-do-not-use-8881e4939a751f6a10263aabf77da05abb165c76.tar
drakx-backup-do-not-use-8881e4939a751f6a10263aabf77da05abb165c76.tar.gz
drakx-backup-do-not-use-8881e4939a751f6a10263aabf77da05abb165c76.tar.bz2
drakx-backup-do-not-use-8881e4939a751f6a10263aabf77da05abb165c76.tar.xz
drakx-backup-do-not-use-8881e4939a751f6a10263aabf77da05abb165c76.zip
(mirrors_raw) simplify
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/mirror.pm7
1 files changed, 1 insertions, 6 deletions
diff --git a/perl-install/mirror.pm b/perl-install/mirror.pm
index b9ee55ba2..f0a54f4d1 100644
--- a/perl-install/mirror.pm
+++ b/perl-install/mirror.pm
@@ -87,12 +87,7 @@ sub mirrors_raw {
#- FIXME! (blino) we use use https here
my $list = "http://mirrors.mageia.org/api/$type.$product_id->{version}.$product_id->{arch}.list?product=$product_id->{product}";
log::explanations("trying mirror list from $list");
- my @lines;
- if ($::isInstall) {
- @lines = _mirrors_raw_install($list);
- } else {
- @lines = _mirrors_raw_standalone($list);
- }
+ my @lines = $::isInstall ? _mirrors_raw_install($list) : _mirrors_raw_standalone($list);
map { common::parse_LDAP_namespace_structure(chomp_($_)) } @lines;
}