pike.git / lib / modules / Calendar.pmod / tzdata / zoneinfo2tdf.pl

version» Context lines:

pike.git/lib/modules/Calendar.pmod/tzdata/zoneinfo2tdf.pl:21:       my $type = lc($fields[0]);    if ($contZone) {    @fields >= 3 or warn "bad continuation line";    unshift @fields, '+', $contZone;    $type = 'zone';    }       $contZone = '';    if ($type eq 'zone') { -  # Zone NAME GMTOFF RULES/SAVE FORMAT [UNTIL] +  # Zone NAME STDOFF RULES/SAVE FORMAT [UNTIL]    my $nfields = @fields;    $nfields >= 5 or warn "bad zone line";    if ($nfields > 6) {    #this splice is optional, depending on one's preference    #(one big date-time field, or componentized date and time):    splice(@fields, 5, $nfields-5, "@fields[5..$nfields-1]");    }    $contZone = $fields[1] if @fields > 5;    } elsif ($type eq 'rule') {    # Rule NAME FROM TO TYPE IN ON AT SAVE LETTER/S