Commit 9606491e authored by Mac Newbold's avatar Mac Newbold

Fix regexps that break sharks - allow '-' in node names.

parent 459349ea
......@@ -891,7 +891,7 @@ sub ExpNodes($$)
# Taint check. I do not understand this sillyness, but if I
# taint check these node names, I avoid warnings throughout.
#
if ($node =~ /^([\w]+)$/) {
if ($node =~ /^([-\w]+)$/) {
$node = $1;
push(@nodes, $node);
......
......@@ -92,7 +92,7 @@ if (@ARGV) {
#
# Taint check first! Solves silly perl problems.
#
if ($n =~ /^([\w]+)$/) {
if ($n =~ /^([-\w]+)$/) {
$n = $1;
}
else {
......
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