summaryrefslogtreecommitdiffstats
path: root/perl-install/http.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-11-12 12:31:23 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-11-12 12:31:23 +0000
commit932b873787f546efa2629bc903988b40b04fb919 (patch)
tree1d3c42f85cdaeeef96e4c507fa09a8f1da804a55 /perl-install/http.pm
parent7639d230b844648b4d4b6d2ed00830c42a46b1e4 (diff)
downloaddrakx-932b873787f546efa2629bc903988b40b04fb919.tar
drakx-932b873787f546efa2629bc903988b40b04fb919.tar.gz
drakx-932b873787f546efa2629bc903988b40b04fb919.tar.bz2
drakx-932b873787f546efa2629bc903988b40b04fb919.tar.xz
drakx-932b873787f546efa2629bc903988b40b04fb919.zip
fix bogus use of old netwok module instead of network::network
Diffstat (limited to 'perl-install/http.pm')
-rw-r--r--perl-install/http.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/http.pm b/perl-install/http.pm
index 4e19eed8b..f1c812b62 100644
--- a/perl-install/http.pm
+++ b/perl-install/http.pm
@@ -1,7 +1,7 @@
package http; # $Id$
use IO::Socket;
-use network;
+use network::network;
my $sock;
@@ -14,7 +14,7 @@ sub getFile {
$url =~ m|/XXX$| and return; #- force closing connection.
my ($host, $port, $path) = $url =~ m,^http://([^/:]+)(?::(\d+))?(/\S*)?$,;
- $host = network::resolv($host);
+ $host = resolv($host);
$sock = IO::Socket::INET->new(PeerAddr => $host,
PeerPort => $port || 80,