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/common.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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

diff --git a/perl-install/common.pm b/perl-install/common.pm
index 9dcb55300..2b85f8032 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -409,9 +409,9 @@ sub formatLines($) {
 
 sub getVarsFromSh($) {
     my %l;
-    local *F;
-    open F, $_[0] or return;
-    foreach (<F>) {
+    local *F; open F, $_[0] or return;
+    local $_;
+    while (<F>) {
 	my ($v, $val, $val2) =
 	  /^\s*			# leading space
 	   (\w+) =		# variable
-- 
cgit v1.2.1