diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-05-23 18:27:31 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-05-23 18:27:31 +0000 |
| commit | d8c8fb86f15c3dae2f414f664e96549aa3260e6e (patch) | |
| tree | 60634e7698d77fd781289aca2eae2a39e5588666 /perl-install | |
| parent | 61a889fa68242a97db3951c63d49db3ebb2bb7b4 (diff) | |
| download | drakx-backup-do-not-use-d8c8fb86f15c3dae2f414f664e96549aa3260e6e.tar drakx-backup-do-not-use-d8c8fb86f15c3dae2f414f664e96549aa3260e6e.tar.gz drakx-backup-do-not-use-d8c8fb86f15c3dae2f414f664e96549aa3260e6e.tar.bz2 drakx-backup-do-not-use-d8c8fb86f15c3dae2f414f664e96549aa3260e6e.tar.xz drakx-backup-do-not-use-d8c8fb86f15c3dae2f414f664e96549aa3260e6e.zip | |
(_mirrors_raw_install) split it out of mirrors_raw()
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/mirror.pm | 21 |
1 files changed, 14 insertions, 7 deletions
diff --git a/perl-install/mirror.pm b/perl-install/mirror.pm index 075f7eb30..2df0fd09a 100644 --- a/perl-install/mirror.pm +++ b/perl-install/mirror.pm @@ -53,6 +53,19 @@ sub register_downloader { $downloader = $func; } +sub _mirrors_raw_install { + my ($list) = @_; + require install::http; + my $f = install::http::getFile($list, "strict-certificate-check" => 1) or die "mirror list not found"; + local $SIG{ALRM} = sub { die "timeout" }; + alarm 60; + log::l("using mirror list $list"); + my @lines; + push @lines, $_ while <$f>; + alarm 0; + @lines; +} + sub mirrors_raw { my ($product_id) = @_; @@ -64,13 +77,7 @@ sub mirrors_raw { log::explanations("trying mirror list from $list"); my @lines; if ($::isInstall) { - require install::http; - my $f = install::http::getFile($list, "strict-certificate-check" => 1) or die "mirror list not found"; - local $SIG{ALRM} = sub { die "timeout" }; - alarm 60; - log::l("using mirror list $list"); - push @lines, $_ while <$f>; - alarm 0; + @lines = _mirrors_raw_install($list); } else { if (ref($downloader)) { @lines = $downloader->($list); |