diff options
| author | oharboe <oharboe> | 2009-08-16 11:29:06 +0000 |
|---|---|---|
| committer | oharboe <oharboe> | 2009-08-16 11:29:06 +0000 |
| commit | 5ca83d9686ee78b5132da878838effefab5da7b7 (patch) | |
| tree | 17ef867756ba42319b5dd42fb041da26f09e8c37 | |
| parent | 808b8d47019d86752476027832bf47b25d0863ee (diff) | |
| download | jimtcl-5ca83d9686ee78b5132da878838effefab5da7b7.zip jimtcl-5ca83d9686ee78b5132da878838effefab5da7b7.tar.gz jimtcl-5ca83d9686ee78b5132da878838effefab5da7b7.tar.bz2 | |
* jim-array-1.0.tcl: array unset was broken
| -rw-r--r-- | ChangeLog | 1 | ||||
| -rw-r--r-- | jim-array-1.0.tcl | 2 |
2 files changed, 2 insertions, 1 deletions
@@ -1,5 +1,6 @@ 2009-08-16 Steve Bennett <steveb@workware.net.au> + * jim-array-1.0.tcl: array unset was broken * jim.c: Some recursion in unknown is OK, just not infinite recursion. * jimsh.c: $argv0 should be the name of the script * jim.c: Should be able to compare strings for order in expr diff --git a/jim-array-1.0.tcl b/jim-array-1.0.tcl index a1298c0..38cda0f 100644 --- a/jim-array-1.0.tcl +++ b/jim-array-1.0.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
}
|