summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog7
-rw-r--r--library/clock.tcl6
2 files changed, 9 insertions, 4 deletions
diff --git a/ChangeLog b/ChangeLog
index 900e48f..14708bc 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2008-12-12 Jan Nijtmans <nijtmans@users.sf.net>
+
+ * library/clock.tcl (ProcessPosixTimeZone): Fix time change
+ in Eastern Europe (not 3:00 but 4:00 local time) [Bug 2207436]
+
2008-12-11 Andreas Kupries <andreask@activestate.com>
* generic/tclIO.c (SetChannelFromAny and related): Modified the
@@ -12,7 +17,7 @@
* library/clock.tcl (ProcessPosixTimeZone): Fallback to
European time zone DST rules, when the timezone is
between 0 and -12 [Bug 2207436].
- * tests/clock.test (clock-64.[12]): Test cases for [Bug 2207436]
+ * tests/clock.test (clock-52.[23]): Test cases for [Bug 2207436]
2008-12-10 Kevin B. Kenny <kennykb@acm.org>
diff --git a/library/clock.tcl b/library/clock.tcl
index da63faa..4a34b82 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.47.2.3 2008/12/11 14:05:28 nijtmans Exp $
+# RCS: @(#) $Id: clock.tcl,v 1.47.2.4 2008/12/12 17:46:13 nijtmans Exp $
#
#----------------------------------------------------------------------
@@ -3891,7 +3891,7 @@ proc ::tcl::clock::ProcessPosixTimeZone { z } {
&& [dict get $z startMonth] eq {} } {
if {($stdHours>=0) && ($stdHours<=12)} {
dict set z startWeekOfMonth 5
- if {$stdHours>1} {
+ if {$stdHours>2} {
dict set z startHours 2
} else {
dict set z startHours [expr {$stdHours+1}]
@@ -3910,7 +3910,7 @@ proc ::tcl::clock::ProcessPosixTimeZone { z } {
if {($stdHours>=0) && ($stdHours<=12)} {
dict set z endMonth 10
dict set z endWeekOfMonth 5
- if {$stdHours>1} {
+ if {$stdHours>2} {
dict set z endHours 3
} else {
dict set z endHours [expr {$stdHours+2}]