diff options
author | oharboe <oharboe> | 2009-08-16 11:29:06 +0000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2010-10-15 11:00:18 +1000 |
commit | dcf49cf4b785ba585711ecbd3b0f1e97b80e733b (patch) | |
tree | 18ff674d3c6b1de723ac96f09b5fbdc2bf00384d | |
parent | 455b2d66de531b858e7deb340f5cae7a87d48d45 (diff) | |
download | jimtcl-dcf49cf4b785ba585711ecbd3b0f1e97b80e733b.zip jimtcl-dcf49cf4b785ba585711ecbd3b0f1e97b80e733b.tar.gz jimtcl-dcf49cf4b785ba585711ecbd3b0f1e97b80e733b.tar.bz2 |
array unset was broken
Signed-off-by: Steve Bennett <steveb@workware.net.au>
-rw-r--r-- | array.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -90,7 +90,7 @@ proc array {subcmd arrayname args} { return $list
}
unset {
- foreach {key value} $args {
+ foreach {key value} $name {
if {[string match $pattern $key]} {
dict unset name $key
}
|