diff options
| -rw-r--r-- | ChangeLog | 7 | ||||
| -rw-r--r-- | library/clock.tcl | 6 |
2 files changed, 9 insertions, 4 deletions
@@ -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}] |