diff options
| author | Kevin B Kenny <kennykb@acm.org> | 2006-04-19 16:43:01 (GMT) |
|---|---|---|
| committer | Kevin B Kenny <kennykb@acm.org> | 2006-04-19 16:43:01 (GMT) |
| commit | 80ac93388a6784f4d5c7251041dc6eabbc5f8061 (patch) | |
| tree | 131734432ff738e20e51a950384a05da75b03e48 /library/clock.tcl | |
| parent | a4224d88345b6c501df8eb8fa26f5c7b8711c3f8 (diff) | |
| download | tcl-80ac93388a6784f4d5c7251041dc6eabbc5f8061.zip tcl-80ac93388a6784f4d5c7251041dc6eabbc5f8061.tar.gz tcl-80ac93388a6784f4d5c7251041dc6eabbc5f8061.tar.bz2 | |
fix for Martin Lemburg's DST conversion bug.
http://groups.google.com/group/comp.lang.tcl/browse_thread/thread/9a8b15a4dfc0b7a0
Diffstat (limited to 'library/clock.tcl')
| -rw-r--r-- | library/clock.tcl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/library/clock.tcl b/library/clock.tcl index 1d75b7d..37d475f 100644 --- a/library/clock.tcl +++ b/library/clock.tcl @@ -13,7 +13,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: clock.tcl,v 1.29 2005/12/27 17:39:02 kennykb Exp $ +# RCS: @(#) $Id: clock.tcl,v 1.30 2006/04/19 16:43:03 kennykb Exp $ # #---------------------------------------------------------------------- @@ -3947,12 +3947,12 @@ proc ::tcl::clock::DeterminePosixDSTTime { z bound y } { # Time was specified as a day of the week within a month dict set date month [dict get $z ${bound}Month] - dict set date dayOfWeekInMonth [dict get $z ${bound}WeekOfMonth] - set dow [dict get $z ${bound}DayOfWeek] - if { $dow >= 5 } { - set dow -1 + dict set date dayOfWeek [dict get $z ${bound}DayOfWeek] + set dowim [dict get $z ${bound}WeekOfMonth] + if { $dowim >= 5 } { + set dowim -1 } - dict set date dayOfWeek $dow + dict set date dayOfWeekInMonth $dowim set date [GetJulianDayFromEraYearMonthWeekDay $date[set date {}] 2361222] } |