diff options
Diffstat (limited to 'perl-install/http.pm')
| -rw-r--r-- | perl-install/http.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/perl-install/http.pm b/perl-install/http.pm index 77ca5ad49..14a33fd7e 100644 --- a/perl-install/http.pm +++ b/perl-install/http.pm @@ -38,8 +38,7 @@ sub getFile { $now = $buf =~ /\012/; } until $now && $last; - $tmp =~ /^(.*\b(\d+)\b.*)/; - if ($2 == 200) { + if ($tmp =~ /^(.*\b(\d+)\b.*)/ && $2 == 200) { $sock; } else { log::l("HTTP error: $1"); |