summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
authorKevin B Kenny <kennykb@acm.org>2005-12-02 22:13:41 (GMT)
committerKevin B Kenny <kennykb@acm.org>2005-12-02 22:13:41 (GMT)
commitd9a79d52dafdcdf2079951636d5ec6f1ac96a15b (patch)
tree3cbcc441bcbfe452d218076d812b767e4fa3b16c /library
parent085b704108e13ba22ac2ce549e259e291740ad68 (diff)
downloadtcl-d9a79d52dafdcdf2079951636d5ec6f1ac96a15b.zip
tcl-d9a79d52dafdcdf2079951636d5ec6f1ac96a15b.tar.gz
tcl-d9a79d52dafdcdf2079951636d5ec6f1ac96a15b.tar.bz2
another puny speedup - no error thrown from ::tcl::clock::getenv
Diffstat (limited to 'library')
-rw-r--r--library/clock.tcl6
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