summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-08-14 21:49:17 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-08-14 21:49:17 +0000
commit63dc2a3ea6baf4173f31bd9df3fc1b28b1c561eb (patch)
tree2569d31ef6498b7ce77c3a86a8e1a9250d1bd8c2
parent2061f680fcdd4edadd729b24f1ca26c420eb3947 (diff)
downloaddrakx-63dc2a3ea6baf4173f31bd9df3fc1b28b1c561eb.tar
drakx-63dc2a3ea6baf4173f31bd9df3fc1b28b1c561eb.tar.gz
drakx-63dc2a3ea6baf4173f31bd9df3fc1b28b1c561eb.tar.bz2
drakx-63dc2a3ea6baf4173f31bd9df3fc1b28b1c561eb.tar.xz
drakx-63dc2a3ea6baf4173f31bd9df3fc1b28b1c561eb.zip
cleanup to please perl_checker
-rw-r--r--perl-install/http.pm9
1 files changed, 4 insertions, 5 deletions
diff --git a/perl-install/http.pm b/perl-install/http.pm
index 48c89d4f7..d04f90435 100644
--- a/perl-install/http.pm
+++ b/perl-install/http.pm
@@ -27,13 +27,12 @@ sub getFile {
"", "");
#- skip until empty line
- local $_;
- my ($now, $last, $tmp) = 0;
- my $read = sub { sysread($sock, $_, 1) || die; $tmp .= $_ };
+ my ($now, $last, $buf, $tmp) = 0;
+ my $read = sub { sysread($sock, $buf, 1) || die; $tmp .= $buf };
do {
$last = $now;
- &$read; &$read if /\015/;
- $now = /\012/;
+ &$read; &$read if $buf =~ /\015/;
+ $now = $buf =~ /\012/;
} until ($now && $last);
$tmp =~ /^.*\b200\b/ ? $sock : undef;