diff options
| author | Kevin B Kenny <kennykb@acm.org> | 2005-12-02 22:13:41 (GMT) |
|---|---|---|
| committer | Kevin B Kenny <kennykb@acm.org> | 2005-12-02 22:13:41 (GMT) |
| commit | d9a79d52dafdcdf2079951636d5ec6f1ac96a15b (patch) | |
| tree | 3cbcc441bcbfe452d218076d812b767e4fa3b16c /library/clock.tcl | |
| parent | 085b704108e13ba22ac2ce549e259e291740ad68 (diff) | |
| download | tcl-d9a79d52dafdcdf2079951636d5ec6f1ac96a15b.zip tcl-d9a79d52dafdcdf2079951636d5ec6f1ac96a15b.tar.gz tcl-d9a79d52dafdcdf2079951636d5ec6f1ac96a15b.tar.bz2 | |
another puny speedup - no error thrown from ::tcl::clock::getenv
Diffstat (limited to 'library/clock.tcl')
| -rw-r--r-- | library/clock.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/library/clock.tcl b/library/clock.tcl index 95924ae..4c64c27 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.27 2005/12/02 19:47:36 kennykb Exp $ +# RCS: @(#) $Id: clock.tcl,v 1.28 2005/12/02 22:13:41 kennykb Exp $ # #---------------------------------------------------------------------- @@ -3087,9 +3087,9 @@ proc ::tcl::clock::GetSystemTimeZone {} { variable CachedSystemTimeZone variable TimeZoneBad - if { ![catch {getenv TCL_TZ} result] } { + if {[set result [getenv TCL_TZ]] ne {}} { set timezone $result - } elseif { ![catch {getenv TZ} result] } { + } elseif {[set result [getenv TZ]] ne {}} { set timezone $result } elseif { [info exists CachedSystemTimeZone] } { set timezone $CachedSystemTimeZone |