do not use "local *F"

1 files changed, 2 insertions, 3 deletions

diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index 7733eb582..96bae97ac 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -246,12 +246,11 @@ sub write_conf {
 
     my $written = read_conf($file);
 
-    local *F;
-    open F, ">> $file" or die("cannot write module config file $file: $!\n");
+    open(my $F, ">> $file") or die("cannot write module config file $file: $!\n");
     while (my ($mod, $h) = each %conf) {
 	while (my ($type, $v) = each %$h) {
 	    my $v2 = join(' ', uniq(deref($v)));
-	    print F "$type $mod $v2\n" 
+	    print $F "$type $mod $v2\n" 
 	      if $v2 && !$written->{$mod}{$type};
 	}
     }