summaryrefslogtreecommitdiffstats
path: root/perl-install/timezone.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-12-03 14:12:09 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-12-03 14:12:09 +0000
commit0e49b4b5057a47c9969610226e0d88c6e8ceea47 (patch)
tree807e7a30d14222bf6000b2c24d2701006603f5d2 /perl-install/timezone.pm
parent26d3c3daae6be35438706677b775e653df556e44 (diff)
downloaddrakx-backup-do-not-use-0e49b4b5057a47c9969610226e0d88c6e8ceea47.tar
drakx-backup-do-not-use-0e49b4b5057a47c9969610226e0d88c6e8ceea47.tar.gz
drakx-backup-do-not-use-0e49b4b5057a47c9969610226e0d88c6e8ceea47.tar.bz2
drakx-backup-do-not-use-0e49b4b5057a47c9969610226e0d88c6e8ceea47.tar.xz
drakx-backup-do-not-use-0e49b4b5057a47c9969610226e0d88c6e8ceea47.zip
do not use "local *F", use "my $F" or output() instead
Diffstat (limited to 'perl-install/timezone.pm')
-rw-r--r--perl-install/timezone.pm7
1 files changed, 3 insertions, 4 deletions
diff --git a/perl-install/timezone.pm b/perl-install/timezone.pm
index 9c8d10521..be6899975 100644
--- a/perl-install/timezone.pm
+++ b/perl-install/timezone.pm
@@ -9,10 +9,9 @@ use log;
sub getTimeZones {
my ($prefix) = @_;
- local *F;
- open F, "cd $prefix/usr/share/zoneinfo && find [A-Z]* -type f |";
- my @l = chomp_(<F>);
- close F or die "cannot list the available zoneinfos";
+ open(my $F, "cd $prefix/usr/share/zoneinfo && find [A-Z]* -type f |");
+ my @l = chomp_(<$F>);
+ close $F or die "cannot list the available zoneinfos";
sort @l;
}