From e81614106311688a1932251f23ac42ad04ada4fe Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 4 Dec 2002 12:40:19 +0000 Subject: do not use "local *F" --- perl-install/modules.pm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'perl-install/modules.pm') 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}; } } -- cgit v1.2.1