From d58e2e3a7ed1de49cb1ec8db7617df50b65b8957 Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Tue, 7 Sep 2004 12:55:36 +0000 Subject: Install from a CD with a networked HTTP media : force reloading of IO::Socket::INET after having brought up the network interface. It won't work otherwise (for mysterious reasons.) --- perl-install/http.pm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'perl-install/http.pm') diff --git a/perl-install/http.pm b/perl-install/http.pm index bce912120..407569be8 100644 --- a/perl-install/http.pm +++ b/perl-install/http.pm @@ -1,6 +1,5 @@ package http; # $Id$ -use IO::Socket; use network::network; @@ -19,6 +18,10 @@ sub getFile { my $use_http_proxy = $ENV{PROXY} && $ENV{PROXYPORT}; + delete $INC{'IO/Socket.pm'}; + delete $INC{'IO/Socket/UNIX.pm'}; + delete $INC{'IO/Socket/INET.pm'}; + require IO::Socket; $sock = IO::Socket::INET->new(PeerAddr => $use_http_proxy ? $ENV{PROXY} : $host, PeerPort => $use_http_proxy ? $ENV{PROXYPORT} : $port || 80, Proto => 'tcp', -- cgit v1.2.1