From d269f440d548aa87d9f8b74e305342d2625bacaa Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Wed, 23 May 2012 18:27:23 +0000
Subject: drop useless install::http::close()

---
 perl-install/install/http.pm | 4 ----
 perl-install/mirror.pm       | 1 -
 2 files changed, 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)) {
-- 
cgit v1.2.1