allow the use of underscores in entity names
parent
1574f6203e
commit
548f1a5a40
|
@ -45,12 +45,12 @@ sub parse_cfg_line($)
|
|||
return;
|
||||
}
|
||||
if ($cfg_parse_section eq 'entities') {
|
||||
my ($entity) = $line =~ /^(\w+)/;
|
||||
my ($entity) = $line =~ /^(\S+)/;
|
||||
$cfg_entities{$entity} = $cfg_nr_entities++;
|
||||
push(@cfg_entity_arr, $entity);
|
||||
} elsif ($cfg_parse_section eq 'messages') {
|
||||
my ($src, $dst, $label, $flags) =
|
||||
$line =~ /(\w+)\s+(\w+)\s+"(.*)"(.*)/;
|
||||
$line =~ /(\S+)\s+(\S+)\s+"(.*)"(.*)/;
|
||||
my %msg;
|
||||
$msg{'src'} = $src;
|
||||
$msg{'dst'} = $dst;
|
||||
|
|
Loading…
Reference in New Issue