diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-09-07 12:55:36 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-09-07 12:55:36 +0000 |
| commit | d58e2e3a7ed1de49cb1ec8db7617df50b65b8957 (patch) | |
| tree | 962b39559bd842a84bb94cab5c9c0b3054c8d3d4 /perl-install/http.pm | |
| parent | f995d975017f1ae923e280b9ae618b0df5bed84c (diff) | |
| download | drakx-backup-do-not-use-d58e2e3a7ed1de49cb1ec8db7617df50b65b8957.tar drakx-backup-do-not-use-d58e2e3a7ed1de49cb1ec8db7617df50b65b8957.tar.gz drakx-backup-do-not-use-d58e2e3a7ed1de49cb1ec8db7617df50b65b8957.tar.bz2 drakx-backup-do-not-use-d58e2e3a7ed1de49cb1ec8db7617df50b65b8957.tar.xz drakx-backup-do-not-use-d58e2e3a7ed1de49cb1ec8db7617df50b65b8957.zip | |
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.)
Diffstat (limited to 'perl-install/http.pm')
| -rw-r--r-- | perl-install/http.pm | 5 |
1 files changed, 4 insertions, 1 deletions
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', |