Commit 970dee17 authored by Leigh B Stoller's avatar Leigh B Stoller

Fix regex to allow more then 10 pcs.

parent 6b8feb22
......@@ -90,7 +90,7 @@ my $wiringdoc = XML::LibXML->load_xml( location => $wiringfile );
foreach my $node ($wiringdoc->documentElement()->find("./wire")->get_nodelist()) {
my $node_id = GetText('node_id1', $node);
my $id;
if ($node_id =~ /pc([0-9])/) {
if ($node_id =~ /pc([0-9]+)/) {
$id = $1;
}
my $location = GetText('UXX', $node);
......
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