retronetworking
/
freeswitch
13
0
Fork 0
Code Pull Requests Releases Activity

improve regular expression to parse Jerusalem timezone files 

The previous regular expression failed to parse 32 timezone files
including Jersusalem. All timezone files are parsed(hopefully correctly)
by this regular expression.
fs-4762 paritally address.
This commit is contained in:
Russell Treleaven 2014-09-25 13:18:07 -04:00
parent 221af936d8
commit 139b032045
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
scripts/perl/timezone-gen.pl
View File

@ -55,16 +55,13 @@ foreach my $name ( sort( keys(%name_to_file) ) ) {
my $data = join( "", <$in> );
close($in);
if ( $data !~ /^TZif/o ) {
my @strings = $data =~ (m/[ -~]{4,}/g);
if ( shift(@strings) !~ /^TZif/o ) {
$debug && print "Skipped $file\n";
next;
}
my $tmp = $data;
$tmp =~ s/\n$//s;
$tmp =~ s/.*\n//sgmo;
$zones{$name} = $tmp;
$zones{$name} = pop(@strings);
}
open( my $out, ">$output" );