From fb3d08fe26e26e638a3d30a45ee865ae0628a861 Mon Sep 17 00:00:00 2001 From: Steve Bennett Date: Fri, 14 Mar 2014 11:46:22 +1000 Subject: jim.c: check for missing quotes, etc. in eval, expr MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Throw an error if a script or expression is missing a trailing bracket, brace or quote rather than simply ignoring the error. Reported-by: Florian Schäfer Signed-off-by: Steve Bennett --- binary.tcl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'binary.tcl') diff --git a/binary.tcl b/binary.tcl index 33f4cd3..edc6eb1 100644 --- a/binary.tcl +++ b/binary.tcl @@ -73,7 +73,7 @@ proc "binary format" {formatString args} { } } default { - if {![info exists ::binary::scalarinfo($t)} { + if {![info exists ::binary::scalarinfo($t)]} { return -code error "bad field specifier \"$t\"" } @@ -188,7 +188,7 @@ proc "binary scan" {value formatString {args varName}} { continue } default { - if {![info exists ::binary::scalarinfo($t)} { + if {![info exists ::binary::scalarinfo($t)]} { return -code error "bad field specifier \"$t\"" } # A scalar (integer or float) type -- cgit v1.1