From 949a885497d3d05e4dc0dc20e52ecb758d9b677c Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Tue, 14 Nov 2000 15:31:59 +0000
Subject: removed foreach (<... which are eating memory

---
 perl-install/modparm.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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

diff --git a/perl-install/modparm.pm b/perl-install/modparm.pm
index b4dd71c13..b6aee8905 100644
--- a/perl-install/modparm.pm
+++ b/perl-install/modparm.pm
@@ -19,9 +19,9 @@ sub read_modparm_file {
   my @line;
 
   my %modparm_hash;
-  local *F;
-  open F, $file or log::l("missing $file: $!"), return;
-  foreach (<F>) {
+  local *F; open F, $file or log::l("missing $file: $!"), return;
+  local $_;
+  while (<F>) {
     chomp;
     @line = split ':';
 
-- 
cgit v1.2.1