diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-08-14 21:49:17 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-08-14 21:49:17 +0000 |
| commit | 63dc2a3ea6baf4173f31bd9df3fc1b28b1c561eb (patch) | |
| tree | 2569d31ef6498b7ce77c3a86a8e1a9250d1bd8c2 /perl-install/http.pm | |
| parent | 2061f680fcdd4edadd729b24f1ca26c420eb3947 (diff) | |
| download | drakx-backup-do-not-use-63dc2a3ea6baf4173f31bd9df3fc1b28b1c561eb.tar drakx-backup-do-not-use-63dc2a3ea6baf4173f31bd9df3fc1b28b1c561eb.tar.gz drakx-backup-do-not-use-63dc2a3ea6baf4173f31bd9df3fc1b28b1c561eb.tar.bz2 drakx-backup-do-not-use-63dc2a3ea6baf4173f31bd9df3fc1b28b1c561eb.tar.xz drakx-backup-do-not-use-63dc2a3ea6baf4173f31bd9df3fc1b28b1c561eb.zip | |
cleanup to please perl_checker
Diffstat (limited to 'perl-install/http.pm')
| -rw-r--r-- | perl-install/http.pm | 9 |
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; |