diff options
author | kennykb <kennykb@noemail.net> | 2005-04-13 19:28:44 (GMT) |
---|---|---|
committer | kennykb <kennykb@noemail.net> | 2005-04-13 19:28:44 (GMT) |
commit | fbcf62711784380f15f9b2bb0def5e5ff3043592 (patch) | |
tree | 78a9dd782e7183786326950da5732b225b195b16 /library | |
parent | f7658827a109c9c80cf75e87f331e3cf1672e60a (diff) | |
download | tcl-fbcf62711784380f15f9b2bb0def5e5ff3043592.zip tcl-fbcf62711784380f15f9b2bb0def5e5ff3043592.tar.gz tcl-fbcf62711784380f15f9b2bb0def5e5ff3043592.tar.bz2 |
Performance improvement in [clock] - FR 1182459
FossilOrigin-Name: e8d3b262427427b287cf52e9c472017b5bb52cd5
Diffstat (limited to 'library')
-rw-r--r-- | library/clock.tcl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/library/clock.tcl b/library/clock.tcl index d47429c..337ed5a 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.13 2004/12/29 20:57:28 kennykb Exp $ +# RCS: @(#) $Id: clock.tcl,v 1.14 2005/04/13 19:28:51 kennykb Exp $ # #---------------------------------------------------------------------- @@ -707,7 +707,7 @@ proc ::tcl::clock::format { args } { set state {} set retval {} foreach char [split $format {}] { - switch -exact $state { + switch -exact -- $state { {} { if { [string equal % $char] } { set state percent @@ -4411,7 +4411,7 @@ proc ::tcl::clock::GetJulianDayFromEraYearMonthDay { date } { # Get absolute year number from the civil year - switch -exact [dict get $date era] { + switch -exact -- [dict get $date era] { BCE { set year [expr { 1 - [dict get $date year] }] } @@ -4493,7 +4493,7 @@ proc ::tcl::clock::GetJulianDayFromEraYearDay { date } { # Get absolute year number from the civil year - switch -exact [dict get $date era] { + switch -exact -- [dict get $date era] { BCE { set year [expr { 1 - [dict get $date year] }] } |