dahdi-perl: left-over $span->xpd

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

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

Merged revisions 9648 via svnmerge from 
http://svn.digium.com/svn/dahdi/tools/trunk


git-svn-id: http://svn.astersk.org/svn/dahdi/tools/branches/2.4@9742 17933a7a-c749-41c5-a318-cba88f637d49
This commit is contained in:
Tzafrir Cohen
2011-02-08 14:12:51 +00:00
parent 3940110c35
commit 0e700f80c5

View File

@@ -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;