Commit 99c22c6c authored by Leigh B. Stoller's avatar Leigh B. Stoller
Browse files

TCL regular expressions are not as clever as perl ...

parent e34aa6e9
......@@ -407,7 +407,7 @@ proc set {args} {
# This is the special OPT array, which we need to keep ordered
# when inserting into the DB.
if {[regexp {^opt\((.*)\)} $var d optname]} {
if {[regexp {^opt\(([-_0-9a-zA-Z]+)\)} $var d optname]} {
real_set optarray_order($optarray_count) $optname
incr optarray_count
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