From 2582d2c8824e66d7f378d410b0381057adaf7f88 Mon Sep 17 00:00:00 2001 From: Tzafrir Cohen Date: Fri, 8 May 2009 10:21:05 +0000 Subject: dahdi-perl: scan only "number" files under /proc . (In case someone, such as dahdi_dynamic_ethmf adds there some other entries) git-svn-id: http://svn.asterisk.org/svn/dahdi/tools/trunk@6579 a0bf4364-ded3-4de4-8d8a-66a801d63aff --- xpp/perl_modules/Dahdi.pm | 1 + 1 file changed, 1 insertion(+) diff --git a/xpp/perl_modules/Dahdi.pm b/xpp/perl_modules/Dahdi.pm index 93ce25b..fa5955a 100644 --- a/xpp/perl_modules/Dahdi.pm +++ b/xpp/perl_modules/Dahdi.pm @@ -46,6 +46,7 @@ sub spans() { -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); } -- cgit v1.2.3