From 99fa17b4473ac19cbd23b0d4319bee5b497639c0 Mon Sep 17 00:00:00 2001 From: Tzafrir Cohen Date: Wed, 10 Aug 2011 15:33:54 +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.4@10105 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 5e13f04..fd169b7 100644 --- a/xpp/perl_modules/Dahdi/Span.pm +++ b/xpp/perl_modules/Dahdi/Span.pm @@ -349,7 +349,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