build: make zoneinfo2lua.pl script more convenient

diff --git a/build/zoneinfo2lua.pl b/build/zoneinfo2lua.pl
old mode 100644 (file)
new mode 100755 (executable)
index 7e772c0..2e24c95
--- a/build/zoneinfo2lua.pl
+++ b/build/zoneinfo2lua.pl
@@ -6,6 +6,9 @@
 use strict;
 
 my %TZ;
 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: $!";
 
 local $/ = "\012";
 open( ZTAB, "< ./zone.tab" ) || die "Unable to open zone.tab: $!";