[dahdi-commits] tzafrir: branch tools/tzafrir/sysfs r6581 - in /tools/team/tzafrir/sysfs: ./ ...

[SVN commits to the DAHDI project]

Author: tzafrir
Date: Fri May  8 06:43:41 2009
New Revision: 6581

URL: http://svn.asterisk.org/svn-view/dahdi?view=rev&rev=6581
Log:
dahdi-perl: scan only "number" files under /proc .
  
(In case someone, such as dahdi_dynamic_ethmf adds there some other
entries)

Merged revisions 6579 via svnmerge from 
http://svn.digium.com/svn/dahdi/tools/trunk

Modified:
    tools/team/tzafrir/sysfs/   (props changed)
    tools/team/tzafrir/sysfs/xpp/perl_modules/Dahdi.pm

Propchange: tools/team/tzafrir/sysfs/
------------------------------------------------------------------------------
    automerge = *

Propchange: tools/team/tzafrir/sysfs/
------------------------------------------------------------------------------
--- svnmerge-integrated (original)
+++ svnmerge-integrated Fri May  8 06:43:41 2009
@@ -1,1 +1,1 @@
-/tools/trunk:1-6515
+/tools/trunk:1-6580

Modified: tools/team/tzafrir/sysfs/xpp/perl_modules/Dahdi.pm
URL: http://svn.asterisk.org/svn-view/dahdi/tools/team/tzafrir/sysfs/xpp/perl_modules/Dahdi.pm?view=diff&rev=6581&r1=6580&r2=6581
==============================================================================
--- tools/team/tzafrir/sysfs/xpp/perl_modules/Dahdi.pm (original)
+++ tools/team/tzafrir/sysfs/xpp/perl_modules/Dahdi.pm Fri May  8 06:43:41 2009
@@ -52,6 +52,7 @@
 	} elsif ( -d $proc_base ) {
 		foreach my $zfile (glob "$proc_base/*") {
 			$zfile =~ s:$proc_base/::;
+			next unless ($zfile =~ /^\d+$/);
 			my $span = Dahdi::Span->new_procfs($zfile);
 			push(@spans, $span);
 		}