diff options
Diffstat (limited to 'kernel/xpp/utils/zconf/Zaptel.pm')
| -rw-r--r-- | kernel/xpp/utils/zconf/Zaptel.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/kernel/xpp/utils/zconf/Zaptel.pm b/kernel/xpp/utils/zconf/Zaptel.pm index 1b73d5b..a7784f9 100644 --- a/kernel/xpp/utils/zconf/Zaptel.pm +++ b/kernel/xpp/utils/zconf/Zaptel.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 = Zaptel::Span->new($zfile); push(@spans, $span); } |