From ef64babb61a918650674c395526ecc89ba85c709 Mon Sep 17 00:00:00 2001 From: dkf Date: Mon, 14 Aug 2006 10:01:06 +0000 Subject: Added missing braces to validation code --- ChangeLog | 5 +++++ library/clock.tcl | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 511e871..823487f 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2006-08-14 Donal K. Fellows + + * library/clock.tcl (::tcl::clock::add): Added missing braces to + clockval validation code. Pointed out on comp.lang.tcl. + 2006-08-11 Donal K. Fellows * generic/tclNamesp.c: Improvements in buffer management to make 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 } -- cgit v0.12