Commit 33144107 authored by Christopher Alfeld's avatar Christopher Alfeld
Browse files

Last change for array names was almost right.

parent ab0a67d0
...@@ -35,9 +35,9 @@ proc set {args} { ...@@ -35,9 +35,9 @@ proc set {args} {
if {[llength $args] > 1} { if {[llength $args] > 1} {
# Munge var in case it's a variable # Munge var in case it's a variable
regsub -all {[(]} $var {-} out regsub -all {[(]} $var {-} out
set var $out real_set var $out
regsub -all {[)]} $var {} out regsub -all {[)]} $var {} out
set var $out real_set var $out
real_set val [lindex $args 1] real_set val [lindex $args 1]
if {([regexp {^n[0-9]+$} $val] != -1) || if {([regexp {^n[0-9]+$} $val] != -1) ||
([regexp {^lan[0-9]+$} $val] != -1) || ([regexp {^lan[0-9]+$} $val] != -1) ||
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment