diff options
| author | nijtmans <nijtmans> | 2008-12-12 17:46:13 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2008-12-12 17:46:13 (GMT) |
| commit | 778670ee1455a5d8b9c36870bfe60de35afcca50 (patch) | |
| tree | 9e3cd1403f992d7ea84764c3fe773a008848bd82 | |
| parent | 55bf3ca3e9a9391085b86903de99f529ca28142e (diff) | |
| download | tcl-778670ee1455a5d8b9c36870bfe60de35afcca50.zip tcl-778670ee1455a5d8b9c36870bfe60de35afcca50.tar.gz tcl-778670ee1455a5d8b9c36870bfe60de35afcca50.tar.bz2 | |
Fix time change in Eastern Europe (not 3:00 but 4:00 local time)
[Bug 2207436]
| -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}] |