[dahdi-commits] tzafrir: tools/trunk r6579 - /tools/trunk/xpp/perl_modules/Dahdi.pm

[SVN commits to the DAHDI project]

Author: tzafrir
Date: Fri May  8 05:21:05 2009
New Revision: 6579

URL: http://svn.asterisk.org/svn-view/dahdi?view=rev&rev=6579
Log:
dahdi-perl: scan only "number" files under /proc .

(In case someone, such as dahdi_dynamic_ethmf adds there some other
entries)

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

Modified: tools/trunk/xpp/perl_modules/Dahdi.pm
URL: http://svn.asterisk.org/svn-view/dahdi/tools/trunk/xpp/perl_modules/Dahdi.pm?view=diff&rev=6579&r1=6578&r2=6579
==============================================================================
--- tools/trunk/xpp/perl_modules/Dahdi.pm (original)
+++ tools/trunk/xpp/perl_modules/Dahdi.pm Fri May  8 05:21:05 2009
@@ -46,6 +46,7 @@
 	-d $proc_base or return ();
 	foreach my $zfile (glob "$proc_base/*") {
 		$zfile =~ s:$proc_base/::;
+		next unless ($zfile =~ /^\d+$/);
 		my $span = Dahdi::Span->new($zfile);
 		push(@spans, $span);
 	}