summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2006-08-14 10:01:06 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2006-08-14 10:01:06 (GMT)
commitef64babb61a918650674c395526ecc89ba85c709 (patch)
treeab785ee4f077329bed5f8e198165b78c7c6bac0a /library
parentbe60925512e642d383cdd2af3ba6e46493ddd54e (diff)
downloadtcl-ef64babb61a918650674c395526ecc89ba85c709.zip
tcl-ef64babb61a918650674c395526ecc89ba85c709.tar.gz
tcl-ef64babb61a918650674c395526ecc89ba85c709.tar.bz2
Added missing braces to validation code
Diffstat (limited to 'library')
-rw-r--r--library/clock.tcl4
1 files changed, 2 insertions, 2 deletions
diff --git a/library/clock.tcl b/library/clock.tcl
index d6ef8a3..663fac0 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.33 2006/07/31 03:27:13 kennykb Exp $
+# RCS: @(#) $Id: clock.tcl,v 1.34 2006/08/14 10:01:06 dkf Exp $
#
#----------------------------------------------------------------------
@@ -4341,7 +4341,7 @@ proc ::tcl::clock::add { clockval args } {
?number units?...\
?-gmt boolean? ?-locale LOCALE? ?-timezone ZONE?\""
}
- if { [catch { expr wide($clockval) } result] } {
+ if { [catch { expr {wide($clockval)} } result] } {
return -code error $result
}