summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
authorKevin B Kenny <kennykb@acm.org>2006-04-19 16:43:01 (GMT)
committerKevin B Kenny <kennykb@acm.org>2006-04-19 16:43:01 (GMT)
commit80ac93388a6784f4d5c7251041dc6eabbc5f8061 (patch)
tree131734432ff738e20e51a950384a05da75b03e48 /library
parenta4224d88345b6c501df8eb8fa26f5c7b8711c3f8 (diff)
downloadtcl-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')
-rw-r--r--library/clock.tcl12
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]
}