1 files changed, 3 insertions, 3 deletions
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 ':';