[svn-commits] tzafrir: branch tools/2.5 r10186 - /tools/branches/2.5/xpp/perl_modules/Dahdi/

[SVN commits to the Digium repositories]

Author: tzafrir
Date: Wed Sep  7 02:10:28 2011
New Revision: 10186

URL: http://svnview.digium.com/svn/dahdi?view=rev&rev=10186
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.5/xpp/perl_modules/Dahdi/Span.pm

Modified: tools/branches/2.5/xpp/perl_modules/Dahdi/Span.pm
URL: http://svnview.digium.com/svn/dahdi/tools/branches/2.5/xpp/perl_modules/Dahdi/Span.pm?view=diff&rev=10186&r1=10185&r2=10186
==============================================================================
--- tools/branches/2.5/xpp/perl_modules/Dahdi/Span.pm (original)
+++ tools/branches/2.5/xpp/perl_modules/Dahdi/Span.pm Wed Sep  7 02:10:28 2011
@@ -368,7 +368,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;