From a7b09740d3427f0447e005bbccfae8c5b6e21421 Mon Sep 17 00:00:00 2001 From: Tzafrir Cohen Date: Wed, 7 Sep 2011 07:10:28 +0000 Subject: xpp: pri_termtype: match complete SPAN patterns Match complete span patterns, to avoid pattern 'SPAN/1' from matching e.g. span 12 (SPAN/12). Signed-off-by: Tzafrir Cohen git-svn-id: http://svn.asterisk.org/svn/dahdi/tools/branches/2.5@10186 a0bf4364-ded3-4de4-8d8a-66a801d63aff --- xpp/perl_modules/Dahdi/Span.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/xpp/perl_modules/Dahdi/Span.pm b/xpp/perl_modules/Dahdi/Span.pm index 4e63af4..cf38c80 100644 --- a/xpp/perl_modules/Dahdi/Span.pm +++ b/xpp/perl_modules/Dahdi/Span.pm @@ -368,7 +368,7 @@ SPEC: #print STDERR "match: $match\n"; foreach my $pattern (@patlist) { #print STDERR "testmatch: $pattern =~ $match\n"; - if($pattern =~ $match) { + if($pattern =~ /^$match$/) { #print STDERR "MATCH '$pattern' ~ '$match' termtype=$termtype\n"; $match_termtype = $termtype; last SPEC; -- cgit v1.2.3