DAHDI-perl: allow setting base of system files with DAHDI_VIRT_TOP

If the user set DAHDI_VIRT_TOP in the environment, consider it as a path
under which to look for ProcFS and SysFS files. This allows running the
DAHDI-perl tools on filesystem dumps generated by
build_tools/dump_sys_state .

To reduce the number of dependencies between various modules, the 'xpd'
member of a Dahdi::Span is removed. Dahdi::Xpp::xpd_of_span() can be
used if needed.


git-svn-id: http://svn.asterisk.org/svn/dahdi/tools/trunk@8215 a0bf4364-ded3-4de4-8d8a-66a801d63aff

1 files changed, 1 insertions, 1 deletions

diff --git a/xpp/lsdahdi b/xpp/lsdahdi
index 1298c3e..e4d473c 100755
--- a/xpp/lsdahdi
+++ b/xpp/lsdahdi
@@ -22,7 +22,7 @@ my @xpds = map { $_->xpds } @xbuses;
 
 foreach my $span (Dahdi::spans()) {
 	my $spanno = $span->num;
-	my $xpd = $span->xpd;
+	my $xpd = Dahdi::Xpp::xpd_of_span($span);
 	my @lines;
 	my $index = 0;