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 /library/clock.tcl | |
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]
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 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}] |