diff options
| -rw-r--r-- | perl-install/http.pm | 5 | ||||
| -rw-r--r-- | perl-install/install_any.pm | 2 |
2 files changed, 5 insertions, 2 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', diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index fc9f1c3da..7d7f40a45 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -465,7 +465,7 @@ sub selectSupplMedia { } else { my $url = $o->ask_from_entry('', N("URL of the mirror?")) or return ''; useMedium($medium_name); - require "$suppl_method.pm"; + require "$suppl_method.pm"; #- require http or ftp #- first, try to find an hdlists file eval { pkgs::psUsingHdlists($o, $suppl_method, $url, $o->{packages}, $medium_name, \&setup_suppl_medium) }; if ($@) { |