summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-05-23 18:27:23 +0000
committerThierry Vignaud <tv@mageia.org>2012-05-23 18:27:23 +0000
commitb6ab2bcc5fc30a84eebed9fded502996711ed737 (patch)
tree81c1692ed473e00e8d329774f4ff39b97237709d /perl-install
parentc47225a60af9087ee5e7c132a3f0d105e581324d (diff)
downloaddrakx-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()
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install/http.pm4
-rw-r--r--perl-install/mirror.pm1
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)) {