diff options
author | hobbs <hobbs@noemail.net> | 2001-10-18 20:20:27 (GMT) |
---|---|---|
committer | hobbs <hobbs@noemail.net> | 2001-10-18 20:20:27 (GMT) |
commit | a75b096d8dfbce5dfd3b36ce4f0bf21210a1168c (patch) | |
tree | 9635bc95960987f0fc5828ccfe10e1a355563ec9 /generic/tclGetDate.y | |
parent | c60d840bf9dbabcff155a01dfbc23c185e700e5b (diff) | |
download | tcl-a75b096d8dfbce5dfd3b36ce4f0bf21210a1168c.zip tcl-a75b096d8dfbce5dfd3b36ce4f0bf21210a1168c.tar.gz tcl-a75b096d8dfbce5dfd3b36ce4f0bf21210a1168c.tar.bz2 |
* tests/clock.test (clock-8.1):
* generic/tclDate.c (RelativeMonth):
* generic/tclGetDate.y (RelativeMonth): corrected off-by-one-day
error in clock scan with relative months and years during swing
hours. [Bug #413397, Patch #414024] (lavana)
FossilOrigin-Name: 864f0ce0a969317ae5c96626cbd24f4d0a54e3c7
Diffstat (limited to 'generic/tclGetDate.y')
-rw-r--r-- | generic/tclGetDate.y | 19 |
1 files changed, 18 insertions, 1 deletions
diff --git a/generic/tclGetDate.y b/generic/tclGetDate.y index dd3310b..14b9869 100644 --- a/generic/tclGetDate.y +++ b/generic/tclGetDate.y @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclGetDate.y,v 1.17 2001/07/31 19:12:06 vincentdarley Exp $ + * RCS: @(#) $Id: tclGetDate.y,v 1.18 2001/10/18 20:20:28 hobbs Exp $ */ %{ @@ -798,6 +798,23 @@ RelativeMonth(Start, RelMonth, TimePtr) result = Convert(Month, (time_t) tm->tm_mday, Year, (time_t) tm->tm_hour, (time_t) tm->tm_min, (time_t) tm->tm_sec, MER24, DSTmaybe, &Julian); + + /* + * The Julian time returned above is behind by one day, if "month" + * or "year" is used to specify relative time and the GMT flag is true. + * This problem occurs only when the current time is closer to + * midnight, the difference being not more than its time difference + * with GMT. For example, in US/Pacific time zone, the problem occurs + * whenever the current time is between midnight to 8:00am or 7:00amDST. + * See Bug# 413397 for more details and sample script. + * To resolve this bug, we simply add the number of seconds corresponding + * to timezone difference with GMT to Julian time, if GMT flag is true. + */ + + if (TclDateTimezone == 0) { + Julian += TclpGetTimeZone((unsigned long) Start) * 60L; + } + /* * The following iteration takes into account the case were we jump * into a "short month". Far example, "one month from Jan 31" will |