From fae45054b1a97d5a4a336d5f4703694c9d499cf0 Mon Sep 17 00:00:00 2001
From: Tzafrir Cohen <tzafrir.cohen@xorcom.com>
Date: Thu, 20 Jan 2011 18:06:38 +0000
Subject: [PATCH] dahdi-perl: left-over $span->xpd

Replace one remaining $span->{XPD} with xpd_of_span().

Signed-off-by: Tzafrir Cohen <tzafrir.cohen@xorcom.com>

git-svn-id: http://svn.astersk.org/svn/dahdi/tools/trunk@9648 17933a7a-c749-41c5-a318-cba88f637d49
---
 xpp/perl_modules/Dahdi/Span.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/xpp/perl_modules/Dahdi/Span.pm b/xpp/perl_modules/Dahdi/Span.pm
index 9dd3347..5e13f04 100644
--- a/xpp/perl_modules/Dahdi/Span.pm
+++ b/xpp/perl_modules/Dahdi/Span.pm
@@ -323,7 +323,7 @@ sub pri_set_fromconfig($$) {
 	}
 	push(@pri_specs , 'SPAN/* TE');		# Default
 	my @patlist = ( "SPAN/" . $span->num );
-	my $xpd = $span->{XPD};
+	my $xpd = Dahdi::Xpp::xpd_of_span($span);
 	if(defined $xpd) {
 		my $xbus = $xpd->xbus;
 		my $xbus_name = $xbus->name;