From 3e4ad5e1b687f262a1d7cc39a0b905a595ac7f95 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 11 May 2004 12:31:46 +0000
Subject: perl_checker compliance

---
 perl-install/http.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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

diff --git a/perl-install/http.pm b/perl-install/http.pm
index 14a33fd7e..6e522597a 100644
--- a/perl-install/http.pm
+++ b/perl-install/http.pm
@@ -30,7 +30,8 @@ sub getFile {
 		     "", "");
 
     #- skip until empty line
-    my ($now, $last, $buf, $tmp) = 0;
+    my $now = 0;
+    my ($last, $buf, $tmp);
     my $read = sub { sysread($sock, $buf, 1) or die ''; $tmp .= $buf };
     do {
 	$last = $now;
-- 
cgit v1.2.1