rainlance/amiga-tz
1
0
Fork 0
mirror of https://frontier.innolan.net/rainlance/amiga-tz.git synced 2025-11-24 04:48:11 +00:00
Code Releases Activity

Pizzini patch; head work

Browse Source 
SCCS-file: zoneinfo2tdf.pl
SCCS-SID: 8.2
This commit is contained in:
Arthur David Olson
2006-08-07 12:29:38 -04:00
committed by Paul Eggert
parent f12d36d171
commit 51385ad4f9
1 changed files with 54 additions and 50 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
zoneinfo2tdf.pl
View File

@ -1,4 +1,9 @@
#! /usr/bin/perl -w
# %W%
# Courtesy Ken Pizzini.
use strict;
#This file released to the public domain.
@ -10,8 +15,7 @@ my $contZone = '';
while (<>) {
my $origline = $_;
my @fields = ();
while (/^\s*[^#]/) {
s/^\s*((?:"[^"]*"|[^\s#])+)// or last;
while (s/^\s*((?:"[^"]*"|[^\s#])+)//) {
push @fields, $1;
}
next unless @fields;