allow the use of underscores in entity names

This commit is contained in:
Harald Welte 2010-07-18 20:54:00 +02:00
parent 1574f6203e
commit 548f1a5a40
1 changed files with 2 additions and 2 deletions

View File

@ -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;