diff options
Diffstat (limited to 'tools')
| -rw-r--r-- | tools/tclOOScript.tcl | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/tools/tclOOScript.tcl b/tools/tclOOScript.tcl index 12288e4..e10eda2 100644 --- a/tools/tclOOScript.tcl +++ b/tools/tclOOScript.tcl @@ -485,6 +485,11 @@ -errorcode {TCLOO PROPERTY_FORMAT} \ "bad property name \"$prop\"; must not begin with -" } + if {$prop ne [list $prop]} { + return -code error -level 2 \ + -errorcode {TCLOO PROPERTY_FORMAT} \ + "bad property name \"$prop\"; must be a simple word" + } set realprop [string cat "-" $prop] set getter [format {::set [my varname %s]} $prop] set setter [format {::set [my varname %s] $value} $prop] |