Magic-Mirror/gecko-dev
1
0
Fork 0
mirror of https://github.com/mozilla/gecko-dev.git synced 2025-02-12 10:40:12 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

FTSO MacPerl. Dates are implemented in the non-standard way of starting from 1904 instead of 1970. As a result, we must add back those lost years in order to get cross platform compatibility with other perl time implementations. Please shoot me.

Browse Source
This commit is contained in:
cyeh%netscape.com 1998-09-01 01:31:32 +00:00
parent a1165ce494
commit e8a6e8c590
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
config/mac-set-timebomb.pl
View File

@ -106,6 +106,12 @@ sub set_bomb {
unless ($warning_days < $bomb_days);
my $now = time;
# MacPerl stores date and times from 1904 instead of 1970
# Let's do the timewarp again!
$now = $now + (66 * 365 * 24 * 60 * 60);
my $bomb = $now + ($bomb_days * 24 * 60 * 60);
my $warn = $now + ($warning_days * 24 * 60 * 60);