allow the use of underscores in entity names

master
Harald Welte 13 years ago
parent 1574f6203e
commit 548f1a5a40
  1. 4
      gen_ladder.pl

@ -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…
Cancel
Save