diff options
author | sebres <sebres@users.sourceforge.net> | 2024-03-12 02:05:58 (GMT) |
---|---|---|
committer | sebres <sebres@users.sourceforge.net> | 2024-03-12 02:05:58 (GMT) |
commit | bbb594048998c37ffff17a30ac1ababd1be5c9bf (patch) | |
tree | 318aef73b9c9ecb2df948ee255fd5693b2f03fa3 /library | |
parent | 8be2c4bdbc2d3f24ea0670b493d2f637aae11441 (diff) | |
parent | 1310cb5ded14e54448035cf0df34fc46782aaa47 (diff) | |
download | tcl-bbb594048998c37ffff17a30ac1ababd1be5c9bf.zip tcl-bbb594048998c37ffff17a30ac1ababd1be5c9bf.tar.gz tcl-bbb594048998c37ffff17a30ac1ababd1be5c9bf.tar.bz2 |
merge sebres-8-6-clock-speedup-cr2
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 6d886e1..4c2529a 100644 --- a/library/clock.tcl +++ b/library/clock.tcl @@ -976,10 +976,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 { |