diff options
| author | Kevin B Kenny <kennykb@acm.org> | 2004-10-26 02:08:28 (GMT) |
|---|---|---|
| committer | Kevin B Kenny <kennykb@acm.org> | 2004-10-26 02:08:28 (GMT) |
| commit | 52f762e4fcb9a31c8866c6986198adb282fa4e7a (patch) | |
| tree | a8bd70dbc4bd6d67549da8416496da9c4bc0f10e /library/clock.tcl | |
| parent | 638940015d9a4ae55ba8d130a78c4e662655a6fb (diff) | |
| download | tcl-52f762e4fcb9a31c8866c6986198adb282fa4e7a.zip tcl-52f762e4fcb9a31c8866c6986198adb282fa4e7a.tar.gz tcl-52f762e4fcb9a31c8866c6986198adb282fa4e7a.tar.bz2 | |
fixes for Bug 1054101
Diffstat (limited to 'library/clock.tcl')
| -rw-r--r-- | library/clock.tcl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/library/clock.tcl b/library/clock.tcl index 15456d2..0f91cca 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.9 2004/10/25 17:24:39 dgp Exp $ +# RCS: @(#) $Id: clock.tcl,v 1.10 2004/10/26 02:08:38 kennykb Exp $ # #---------------------------------------------------------------------- @@ -1280,9 +1280,11 @@ proc ::tcl::clock::FreeScan { string base timezone locale } { [expr { -210866803200 + ( 86400 * wide([dict get $date julianDay]) ) + [dict get $date secondOfDay] }] + dict set date tzName $timezone set date [ConvertLocalToUTC $date[set date {}]] set seconds [dict get $date seconds] + # Do relative times if { [llength $parseRel] > 0 } { @@ -1320,7 +1322,7 @@ proc ::tcl::clock::FreeScan { string base timezone locale } { [expr { -210866803200 + ( 86400 * wide([dict get $date2 julianDay]) ) + [dict get $date secondOfDay] }] - dict set date2 tzname $timezone + dict set date2 tzName $timezone set date2 [ConvertLocalToUTC $date2[set date2 {}]] set seconds [dict get $date2 seconds] |