diff options
| author | Tzafrir Cohen <tzafrir.cohen@xorcom.com> | 2011-09-07 07:10:28 +0000 |
|---|---|---|
| committer | Tzafrir Cohen <tzafrir.cohen@xorcom.com> | 2011-09-07 07:10:28 +0000 |
| commit | a7b09740d3427f0447e005bbccfae8c5b6e21421 (patch) | |
| tree | 2dbab88ea1724c78a0e6c0dc8311276571d0a577 | |
| parent | 1c078dbb5f81a57d258fd50db870c4a28cb3ac22 (diff) | |
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 <tzafrir.cohen@xorcom.com>
git-svn-id: http://svn.asterisk.org/svn/dahdi/tools/branches/2.5@10186 a0bf4364-ded3-4de4-8d8a-66a801d63aff
| -rw-r--r-- | xpp/perl_modules/Dahdi/Span.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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; |