diff options
author | sebres <sebres@users.sourceforge.net> | 2017-01-10 22:36:19 (GMT) |
---|---|---|
committer | sebres <sebres@users.sourceforge.net> | 2017-01-10 22:36:19 (GMT) |
commit | 6a0616f572c4e550427bf6b6e80b874166c5e3fe (patch) | |
tree | 2c378980d604fa16faa34eff8ff96fdd4cc129b5 /library/clock.tcl | |
parent | ca7dcb3b5163da655a13b5935c987b3a38067996 (diff) | |
download | tcl-6a0616f572c4e550427bf6b6e80b874166c5e3fe.zip tcl-6a0616f572c4e550427bf6b6e80b874166c5e3fe.tar.gz tcl-6a0616f572c4e550427bf6b6e80b874166c5e3fe.tar.bz2 |
cacheable conversions Local2UTC / UTC2Local fixed (some TZ switches time seconds bound) and optimized (last period ranges saved);
prepare to back-port clock format
Diffstat (limited to 'library/clock.tcl')
-rwxr-xr-x | library/clock.tcl | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/library/clock.tcl b/library/clock.tcl index ca12f4a..c4e698c 100755 --- a/library/clock.tcl +++ b/library/clock.tcl @@ -685,20 +685,6 @@ proc ::tcl::clock::format { args } { set locale [string tolower $locale] set clockval [lindex $args 0] - # Get the data for time changes in the given zone - - if {$timezone eq ""} { - if {[set timezone [configure -system-tz]] eq ""} { - set timezone [GetSystemTimeZone] - } - } - if {![info exists TZData($timezone)]} { - if {[catch {set timezone [SetupTimeZone $timezone]} retval opts]} { - dict unset opts -errorinfo - return -options $opts $retval - } - } - # Build a procedure to format the result. Cache the built procedure's name # in the 'FormatProc' array to avoid losing its internal representation, # which contains the name resolution. |