diff options
| author | nijtmans <nijtmans> | 2008-12-12 17:42:52 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2008-12-12 17:42:52 (GMT) |
| commit | 5e59751a50b0e27533ef93600fe6c7e84d6e25bf (patch) | |
| tree | 7fef5dd4f4fe6f6cf70cb3d9c6d6ac2a1dff7dde /library/clock.tcl | |
| parent | 6dfd3f4dec3ab26eb1ed5f12080e1c803946ea32 (diff) | |
| download | tcl-5e59751a50b0e27533ef93600fe6c7e84d6e25bf.zip tcl-5e59751a50b0e27533ef93600fe6c7e84d6e25bf.tar.gz tcl-5e59751a50b0e27533ef93600fe6c7e84d6e25bf.tar.bz2 | |
Document new DST fallback rules.
Fix time change in Eastern Europe (not 3:00 but 4:00 local time)
[Bug 2207436]
Diffstat (limited to 'library/clock.tcl')
| -rw-r--r-- | library/clock.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/library/clock.tcl b/library/clock.tcl index bfac4e6..d972955 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.50 2008/12/11 14:01:59 nijtmans Exp $ +# RCS: @(#) $Id: clock.tcl,v 1.51 2008/12/12 17:42:52 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}] |