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/lang.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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

diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index 79da314fe..78c8b954e 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -367,7 +367,8 @@ sub load_po($) {
     } else {
 	open F, $f; #- not returning here help avoiding reading the same multiple times.
     }
-    foreach (<F>) {
+    local $_;
+    while (<F>) {
 	/^msgstr/ and $state = 1;
 	/^msgid/  && !$fuzzy and $state = 2;
 	s/@/\\@/g;
-- 
cgit v1.2.1