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

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

diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index 6e8c8a039..7178396ca 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -507,9 +507,9 @@ sub read_already_loaded() {
 sub load_deps($) {
     my ($file) = @_;
 
-    local *F;
-    open F, $file or log::l("error opening $file: $!"), return 0;
-    foreach (<F>) {
+    local *F; open F, $file or log::l("error opening $file: $!"), return 0;
+    local $_;
+    while (<F>) {
 	my ($f, $deps) = split ':';
 	push @{$deps{$f}}, split ' ', $deps;
     }
-- 
cgit v1.2.1