diff options
author | Steve Bennett <steveb@workware.net.au> | 2014-03-14 11:46:22 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2014-03-18 10:14:23 +1000 |
commit | fb3d08fe26e26e638a3d30a45ee865ae0628a861 (patch) | |
tree | cc0ca57209ca2570d13a9424a01840760b8f4ec3 /binary.tcl | |
parent | 4045ca4084c04c83b797e7c898f0190194745593 (diff) | |
download | jimtcl-fb3d08fe26e26e638a3d30a45ee865ae0628a861.zip jimtcl-fb3d08fe26e26e638a3d30a45ee865ae0628a861.tar.gz jimtcl-fb3d08fe26e26e638a3d30a45ee865ae0628a861.tar.bz2 |
jim.c: check for missing quotes, etc. in eval, expr
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 <florian.schaefer+github@gmail.com>
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'binary.tcl')
-rw-r--r-- | binary.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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 |