aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authoroharboe <oharboe>2009-08-16 11:29:06 +0000
committerSteve Bennett <steveb@workware.net.au>2010-10-15 11:00:18 +1000
commitdcf49cf4b785ba585711ecbd3b0f1e97b80e733b (patch)
tree18ff674d3c6b1de723ac96f09b5fbdc2bf00384d
parent455b2d66de531b858e7deb340f5cae7a87d48d45 (diff)
downloadjimtcl-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.tcl2
1 files changed, 1 insertions, 1 deletions
diff --git a/array.tcl b/array.tcl
index a1298c0..38cda0f 100644
--- a/array.tcl
+++ b/array.tcl
@@ -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
}