diff options
author | sebres <sebres@users.sourceforge.net> | 2024-03-12 01:33:38 (GMT) |
---|---|---|
committer | sebres <sebres@users.sourceforge.net> | 2024-03-12 01:33:38 (GMT) |
commit | 83a74db91df83a3a4505472cd965d6d74e8ee7bc (patch) | |
tree | 0c8d9ec780a172f8ce37f17ed8512c83c2b0f696 /library | |
parent | ec9410157e93cbeb66c19fcffc9f31b291d1a01b (diff) | |
download | tcl-83a74db91df83a3a4505472cd965d6d74e8ee7bc.zip tcl-83a74db91df83a3a4505472cd965d6d74e8ee7bc.tar.gz tcl-83a74db91df83a3a4505472cd965d6d74e8ee7bc.tar.bz2 |
consider TZ-epoch in base-cache (ensure cache of base is correct for :localtime if TZ changing)
Diffstat (limited to 'library')
-rw-r--r-- | library/clock.tcl | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/library/clock.tcl b/library/clock.tcl index 529a4f9..504ba0b 100644 --- a/library/clock.tcl +++ b/library/clock.tcl @@ -968,10 +968,7 @@ proc ::tcl::clock::SetupTimeZone { timezone {alias {}} } { "time zone \"$timezone\" not found" } variable MINWIDE - if { $timezone eq {:localtime} } { - # Nothing to do, we'll convert using the localtime function - - } elseif { + if { [regexp {^([-+])(\d\d)(?::?(\d\d)(?::?(\d\d))?)?} $timezone \ -> s hh mm ss] } then { |