build: make zoneinfo2lua.pl script more convenient

This commit is contained in:
Jo-Philipp Wich 2011-01-02 17:29:19 +00:00
parent d9736ece54
commit c8bac06623

3
build/zoneinfo2lua.pl Normal file → Executable file
View file

@ -6,6 +6,9 @@
use strict;
my %TZ;
my $tzdir = $ARGV[0] || "/usr/share/zoneinfo";
chdir($tzdir) || die "chdir($tzdir): $!\n";
local $/ = "\012";
open( ZTAB, "< ./zone.tab" ) || die "Unable to open zone.tab: $!";