diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2006-08-14 10:01:06 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2006-08-14 10:01:06 (GMT) |
| commit | ef64babb61a918650674c395526ecc89ba85c709 (patch) | |
| tree | ab785ee4f077329bed5f8e198165b78c7c6bac0a /library/clock.tcl | |
| parent | be60925512e642d383cdd2af3ba6e46493ddd54e (diff) | |
| download | tcl-ef64babb61a918650674c395526ecc89ba85c709.zip tcl-ef64babb61a918650674c395526ecc89ba85c709.tar.gz tcl-ef64babb61a918650674c395526ecc89ba85c709.tar.bz2 | |
Added missing braces to validation code
Diffstat (limited to 'library/clock.tcl')
| -rw-r--r-- | library/clock.tcl | 4 |
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 } |