From 5363f9f6f7e1aa0946989ad4b564333a44bfcf70 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Wed, 11 Aug 2004 09:22:30 +0000
Subject: Restore ability to have supplementary http media.

---
 perl-install/install_any.pm | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 47f19e010..f13ade8bf 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -429,11 +429,6 @@ sub setPackages {
 			useMedium($prev_asked_medium);
 			last SUPPL;
 		    }
-		    my $tmphdlistfile = pkgs::urpmidir($o->{prefix}) . "/hdlist$medium_name.cz";
-		    open(my $f2, ">", $tmphdlistfile);
-		    local $_;
-		    while (<$f>) { syswrite($f2, $_) }
-		    close $f; close $f2;
 		    my $supplmedium = pkgs::psUsingHdlist(
 			$o->{prefix},
 			$suppl_method,
@@ -443,9 +438,9 @@ sub setPackages {
 			'', #- rpmsdir
 			"Supplementary media $medium_name", #- description
 			1, # selected
-			$tmphdlistfile,
+			$f,
 		    );
-		    unlink $tmphdlistfile;
+		    close $f;
 		    if ($supplmedium) {
 			log::l("read suppl hdlist (via $suppl_method)");
 			$supplmedium->{prefix} = $url; #- for install_urpmi
-- 
cgit v1.2.1