[svn-commits] tzafrir: branch tools/2.4 r10105 - /tools/branches/2.4/xpp/perl_modules/Dahdi/

[SVN commits to the Digium repositories]

Author: tzafrir
Date: Wed Aug 10 10:33:54 2011
New Revision: 10105

URL: http://svnview.digium.com/svn/dahdi?view=rev&rev=10105
Log:
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 at xorcom.com>

Modified:
    tools/branches/2.4/xpp/perl_modules/Dahdi/Span.pm

Modified: tools/branches/2.4/xpp/perl_modules/Dahdi/Span.pm
URL: http://svnview.digium.com/svn/dahdi/tools/branches/2.4/xpp/perl_modules/Dahdi/Span.pm?view=diff&rev=10105&r1=10104&r2=10105
==============================================================================
--- tools/branches/2.4/xpp/perl_modules/Dahdi/Span.pm (original)
+++ tools/branches/2.4/xpp/perl_modules/Dahdi/Span.pm Wed Aug 10 10:33:54 2011
@@ -349,7 +349,7 @@
 		#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;