[svn-commits] tzafrir: tools/trunk r6110 - /tools/trunk/xpp/perl_modules/Dahdi/Chans.pm

[SVN commits to the Digium repositories]

Author: tzafrir
Date: Mon Mar  9 11:30:36 2009
New Revision: 6110

URL: http://svn.digium.com/svn-view/dahdi?view=rev&rev=6110
Log:
Fix detection of channels of dynamic spans in Dahdi::Chans

Fix the pattern detection of channels belonging to dynamic (dahdi_dynamic) 
spans in perl programs that use Dahdi::Chans (e.g.: lsdahdi)

(closes issue #14630)
Reported by: tamiel
Patches:
      20090309-perl5-Dahdi-Chans.diff uploaded by tamiel (license 712)

Modified:
    tools/trunk/xpp/perl_modules/Dahdi/Chans.pm

Modified: tools/trunk/xpp/perl_modules/Dahdi/Chans.pm
URL: http://svn.digium.com/svn-view/dahdi/tools/trunk/xpp/perl_modules/Dahdi/Chans.pm?view=diff&rev=6110&r1=6109&r2=6110
==============================================================================
--- tools/trunk/xpp/perl_modules/Dahdi/Chans.pm (original)
+++ tools/trunk/xpp/perl_modules/Dahdi/Chans.pm Mon Mar  9 11:30:36 2009
@@ -155,6 +155,9 @@
 		# ZTHFC: HFC-s single-port card (zaphfc/vzaphfc)
 		# ztqoz: qozap (Junghanns) multi-port HFC card
 		$type = "BRI";
+        } elsif ($fqn =~ m{\bDYN/.*}) {
+                # DYN : Dynamic span (TDMOE)
+                $type = "DYN"
 	} elsif ($fqn =~ m{\bztgsm/.*}) {
 		# Junghanns GSM card
 		$type = "GSM";