From 548f1a5a40a333eda0514500d0fb8d095ecd8154 Mon Sep 17 00:00:00 2001
From: Harald Welte <laforge@gnumonks.org>
Date: Sun, 18 Jul 2010 20:54:00 +0200
Subject: [PATCH] allow the use of underscores in entity names

---
 gen_ladder.pl | 4 ++--
 1 file 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;