aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorHarald Welte <laforge@gnumonks.org>2010-07-18 20:54:00 +0200
committerHarald Welte <laforge@gnumonks.org>2010-07-18 20:54:00 +0200
commit548f1a5a40a333eda0514500d0fb8d095ecd8154 (patch)
tree028b6fb21c8359c629fee901e8b1da75853dec46
parent1574f6203e2b58ce789bdf5e5f65b945f7900e79 (diff)
allow the use of underscores in entity names
-rwxr-xr-xgen_ladder.pl4
1 files changed, 2 insertions, 2 deletions
diff --git a/gen_ladder.pl b/gen_ladder.pl
index 036cbbc..f58c7e4 100755
--- a/gen_ladder.pl
+++ b/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;