From 3021e910718c4702abe831c7aa53e8a7bf8b135f Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 6 Nov 2002 16:47:00 +0000
Subject: please perl_checker: - local'ize $_ before doing while (<...>) - use
 "foreach" instead of "for" - remove unneeded parentheses on the right side of
 infix if/foreach/unless

---
 perl-install/pkgs.pm | 1 +
 1 file changed, 1 insertion(+)

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

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index ff7f7506f..0dfc07b6f 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -451,6 +451,7 @@ sub read_rpmsrate {
     my $line_nb = 0;
     my $fatal_error;
     my (@l);
+    local $_;
     while (<$f>) {
 	$line_nb++;
 	/\t/ and die "tabulations not allowed at line $line_nb\n";
-- 
cgit v1.2.1