From 40f1deb4aa95b57616860a9766fdea9eb4bd9ae8 Mon Sep 17 00:00:00 2001 From: ache Date: Thu, 11 May 2000 23:49:13 +0000 Subject: [PATCH] Better fix for strftime/mktime bug, now more compatible since local timezone name and offset restored for compatibility with standard perl --- contrib/perl5/ext/POSIX/POSIX.xs | 17 +++++++++++++---- 1 file changed, 13 insertions(+), 4 deletions(-) diff --git a/contrib/perl5/ext/POSIX/POSIX.xs b/contrib/perl5/ext/POSIX/POSIX.xs index 093cc995779..2066b469723 100644 --- a/contrib/perl5/ext/POSIX/POSIX.xs +++ b/contrib/perl5/ext/POSIX/POSIX.xs @@ -3620,9 +3620,12 @@ strftime(fmt, sec, min, hour, mday, mon, year, wday = -1, yday = -1, isdst = -1) char tmpbuf[128]; struct tm mytm; int len; -#ifndef __FreeBSD__ - init_tm(&mytm); /* XXX workaround - see init_tm() above */ +#ifdef __FreeBSD__ + long sgmtoff; + int sisdst; + char *szone; #endif + init_tm(&mytm); /* XXX workaround - see init_tm() above */ mytm.tm_sec = sec; mytm.tm_min = min; mytm.tm_hour = hour; @@ -3633,8 +3636,14 @@ strftime(fmt, sec, min, hour, mday, mon, year, wday = -1, yday = -1, isdst = -1) mytm.tm_yday = yday; mytm.tm_isdst = isdst; #ifdef __FreeBSD__ - mytm.tm_gmtoff = 0; - mytm.tm_zone = "???"; + sgmtoff = mytm.tm_gmtoff; + sisdst = mytm.tm_isdst; + szone = mytm.tm_zone; + /* to prevent mess with shifted hours/days/etc. */ + (void) timegm(&mytm); + mytm.tm_gmtoff = sgmtoff; + mytm.tm_isdst = sisdst; + mytm.tm_zone = szone; #else (void) mktime(&mytm); #endif -- 2.45.2