diff options
| author | Tzafrir Cohen <tzafrir.cohen@xorcom.com> | 2011-08-10 15:33:54 +0000 |
|---|---|---|
| committer | Tzafrir Cohen <tzafrir.cohen@xorcom.com> | 2011-08-10 15:33:54 +0000 |
| commit | 99fa17b4473ac19cbd23b0d4319bee5b497639c0 (patch) | |
| tree | fc3155cbcd2ffd28de3d3dc5e9771fec2ee05009 | |
| parent | 90bc7267304c8d3ff3fd38ce6a9042414b9fbe66 (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.4@10105 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 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; |