From 63dc2a3ea6baf4173f31bd9df3fc1b28b1c561eb Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 14 Aug 2001 21:49:17 +0000
Subject: cleanup to please perl_checker

---
 perl-install/http.pm | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

(limited to 'perl-install/http.pm')

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;
-- 
cgit v1.2.1