1 files changed, 1 insertions, 14 deletions
diff --git a/perl-install/http.pm b/perl-install/http.pm
index 8797b9e39..fbf6c001c 100644
--- a/perl-install/http.pm
+++ b/perl-install/http.pm
@@ -3,16 +3,14 @@ package http;
 use IO::Socket;
 
 use install_any;
-use network;
 
 
 my $sock;
 
-sub getFile {
+sub getFile($) {
     local($^W) = 0;
 
     my ($host, $port, $path) = $ENV{URLPREFIX} =~ m,^http://([^/:]+)(?::(\d+))?(/\S*)?$,;
-    $host = network::resolv($host);
     $path .= "/" . install_any::relGetFile($_[0]);
 
     $sock->close if $sock;
@@ -26,17 +24,6 @@ sub getFile {
 		     "Host: $host" . ($port && ":$port"),
 		     "User-Agent: DrakX/vivelinuxabaszindozs",
 		     "", "");
-
-    #- skip until empty line
-    local $_;
-    my ($now, $last) = 0;
-    do {
-	$last = $now;
-	sysread($sock, $_, 1) || die;
-	sysread($sock, $_, 1) || die if /\015/;
-	$now = /\012/;
-    } until ($now && $last);
-
     $sock;
 }