(getFile): verify the return value of the server. If not 200 (aka Ok),

return undef

1 files changed, 4 insertions, 4 deletions

diff --git a/perl-install/http.pm b/perl-install/http.pm
index 8899317b8..48c89d4f7 100644
--- a/perl-install/http.pm
+++ b/perl-install/http.pm
@@ -28,15 +28,15 @@ sub getFile {
 
     #- skip until empty line
     local $_;
-    my ($now, $last) = 0;
+    my ($now, $last, $tmp) = 0;
+    my $read = sub { sysread($sock, $_, 1) || die; $tmp .= $_ };
     do {
 	$last = $now;
-	sysread($sock, $_, 1) || die;
-	sysread($sock, $_, 1) || die if /\015/;
+	&$read; &$read if /\015/;
 	$now = /\012/;
     } until ($now && $last);
 
-    $sock;
+    $tmp =~ /^.*\b200\b/ ? $sock : undef;
 }
 
 1;