diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2004-02-19 14:14:29 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2004-02-19 14:14:29 +0000 |
| commit | 61158935886f27fa534a3edbf01568a11edc9315 (patch) | |
| tree | 4d1e03ef86fcd033dd4cc967a1c21b4712a33f17 /perl-install | |
| parent | 6598f44f6d921f1cc727e3b80be357ddd1958fd2 (diff) | |
| download | drakx-backup-do-not-use-61158935886f27fa534a3edbf01568a11edc9315.tar drakx-backup-do-not-use-61158935886f27fa534a3edbf01568a11edc9315.tar.gz drakx-backup-do-not-use-61158935886f27fa534a3edbf01568a11edc9315.tar.bz2 drakx-backup-do-not-use-61158935886f27fa534a3edbf01568a11edc9315.tar.xz drakx-backup-do-not-use-61158935886f27fa534a3edbf01568a11edc9315.zip | |
well, value is not dropped anymore perl checko
Diffstat (limited to 'perl-install')
| -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"); |