diff options
Diffstat (limited to 'perl-install/http.pm')
| -rw-r--r-- | perl-install/http.pm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/perl-install/http.pm b/perl-install/http.pm index ac670691f..77ca5ad49 100644 --- a/perl-install/http.pm +++ b/perl-install/http.pm @@ -15,7 +15,6 @@ sub getFile { # can be used for ftp urls (with http proxy) my ($host, $port, $path) = $url =~ m,^(?:http|ftp)://([^/:]+)(?::(\d+))?(/\S*)?$,; - $host = resolv($host); my $use_http_proxy = $ENV{PROXY} && $ENV{PROXYPORT}; @@ -39,7 +38,13 @@ sub getFile { $now = $buf =~ /\012/; } until $now && $last; - $tmp =~ /^.*\b200\b/ ? $sock : undef; + $tmp =~ /^(.*\b(\d+)\b.*)/; + if ($2 == 200) { + $sock; + } else { + log::l("HTTP error: $1"); + undef; + } } 1; |