diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-05-23 18:27:23 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-05-23 18:27:23 +0000 |
| commit | b6ab2bcc5fc30a84eebed9fded502996711ed737 (patch) | |
| tree | 81c1692ed473e00e8d329774f4ff39b97237709d | |
| parent | c47225a60af9087ee5e7c132a3f0d105e581324d (diff) | |
| download | drakx-backup-do-not-use-b6ab2bcc5fc30a84eebed9fded502996711ed737.tar drakx-backup-do-not-use-b6ab2bcc5fc30a84eebed9fded502996711ed737.tar.gz drakx-backup-do-not-use-b6ab2bcc5fc30a84eebed9fded502996711ed737.tar.bz2 drakx-backup-do-not-use-b6ab2bcc5fc30a84eebed9fded502996711ed737.tar.xz drakx-backup-do-not-use-b6ab2bcc5fc30a84eebed9fded502996711ed737.zip | |
drop useless install::http::close()
| -rw-r--r-- | perl-install/install/http.pm | 4 | ||||
| -rw-r--r-- | perl-install/mirror.pm | 1 |
2 files changed, 0 insertions, 5 deletions
diff --git a/perl-install/install/http.pm b/perl-install/install/http.pm index da6d6982c..9c0dacfd7 100644 --- a/perl-install/install/http.pm +++ b/perl-install/install/http.pm @@ -4,10 +4,6 @@ use urpm::download; use common; use Cwd; -# to be killed once callers got fixed -sub close() { -} - sub getFile { my ($url, %o_options) = @_; my ($_size, $fh) = get_file_and_size($url, %o_options) or return; diff --git a/perl-install/mirror.pm b/perl-install/mirror.pm index 68684b99a..075f7eb30 100644 --- a/perl-install/mirror.pm +++ b/perl-install/mirror.pm @@ -70,7 +70,6 @@ sub mirrors_raw { alarm 60; log::l("using mirror list $list"); push @lines, $_ while <$f>; - install::http::close(); alarm 0; } else { if (ref($downloader)) { |