dahdi-perl: left-over $span->xpd
authorTzafrir Cohen <tzafrir.cohen@xorcom.com>
Thu, 20 Jan 2011 18:06:38 +0000 (18:06 +0000)
committerTzafrir Cohen <tzafrir.cohen@xorcom.com>
Thu, 20 Jan 2011 18:06:38 +0000 (18:06 +0000)
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

index 9dd3347..5e13f04 100644 (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;