Commit 78a42032 authored by Christopher Alfeld's avatar Christopher Alfeld
Browse files

Added code to avoid potential problems with () in node names, such as when

nodes are stored in Tcl arrays.
parent b06a9abf
......@@ -32,6 +32,9 @@ proc set {args} {
real_set var [lindex $args 0]
if {$var != "currnode" && $var != "currlan"} {
if {[llength $args] > 1} {
# Munge var in case it's a variable
regsub -all {[()]} $var {_} out
set var $out
real_set val [lindex $args 1]
if {([regexp {^n[0-9]+$} $val] != -1) ||
([regexp {^lan[0-9]+$} $val] != -1)} {
......
Markdown is supported
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