umgeher/qdate_localtime
0
Fork 0
Code Issues Pull requests Releases Activity Actions

Make a few smaller changes to the db generation. Still not properly functional

Browse source
This commit is contained in:
Jesse Gumm 2022-12-09 15:34:29 -06:00
parent 95c44085d9
commit b97f2432ce
2 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
priv/db/Makefile
View file

@ -3,7 +3,7 @@ TZ_FILES=$(addprefix $(TZDIR)/, africa antarctica asia australasia backward etce
tzout: DATE := $(shell date +%F)
tzout: $(TZ_FILES)
TZ_VERSION=`perl -n -e 'm/^VERSION\s*=\s*(\S+)/ and print $$1;' $(TZDIR)/Makefile`; \
TZ_VERSION=`cat $(TZDIR)/version`; \
./tz-erl --version $$TZ_VERSION --date $(DATE) -o $@ $^
$(TZ_FILES): $(TZDIR)

5
priv/db/tz-erl
View file

@ -522,6 +522,9 @@ sub last_active_epoch {
my $day = on_to_day_of_month($on, $year, $month);
print "On=$on, Year=$year, Month=$month ====> Day=$day\n";
return timelocal_nocheck(0, 0, 0, $day, $month, $year);
## changing the below call to timelocal_nocheck stops the crash, but it feels wrong
## especially since without it, it seems to produce a lot of "redundant" error messages
## I don't have time to explore this now, but I'll come back to it
return timelocal(0, 0, 0, $day, $month, $year);
}