diff options
Diffstat (limited to 'xpp/perl_modules/Dahdi.pm')
-rw-r--r-- | xpp/perl_modules/Dahdi.pm | 1 |
1 files changed, 1 insertions, 0 deletions
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); } |