Commit 99c22c6c authored by Leigh Stoller's avatar Leigh Stoller

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
}
......
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