From 61158935886f27fa534a3edbf01568a11edc9315 Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Thu, 19 Feb 2004 14:14:29 +0000
Subject: well, value is not dropped anymore perl checko

---
 perl-install/http.pm | 3 +--
 1 file changed, 1 insertion(+), 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");
-- 
cgit v1.2.1