cleanup to please perl_checker

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;