dahdi-perl: more left-over $span->xpd
authorTzafrir Cohen <tzafrir.cohen@xorcom.com>
Sun, 6 Feb 2011 18:39:57 +0000 (18:39 +0000)
committerTzafrir Cohen <tzafrir.cohen@xorcom.com>
Sun, 6 Feb 2011 18:39:57 +0000 (18:39 +0000)
Replace the remaining $span->xpd with xpd_of_span().

Following up on r9648.

git-svn-id: http://svn.astersk.org/svn/dahdi/tools/trunk@9731 17933a7a-c749-41c5-a318-cba88f637d49

xpp/perl_modules/Dahdi/Chans.pm
xpp/perl_modules/Dahdi/Config/Gen/System.pm

index a869ae4..e045c7d 100644 (file)
@@ -229,7 +229,7 @@ sub battery($) {
        return undef unless defined $self->type && $self->type eq 'FXO';
        return $self->{BATTERY} if defined $self->{BATTERY};
 
-       my $xpd = $span->xpd;
+       my $xpd = Dahdi::Xpp::xpd_of_span($span);
        my $index = $self->index;
        return undef if !$xpd;
 
@@ -251,7 +251,7 @@ sub blink($$) {
        my $on = shift;
        my $span = $self->span or die;
 
-       my $xpd = $span->xpd;
+       my $xpd = Dahdi::Xpp::xpd_of_span($span);
        my $index = $self->index;
        return undef if !$xpd;
 
index 94fbf2b..cb7b14b 100644 (file)
@@ -137,7 +137,7 @@ sub gen_digital($$$) {
        if ($span->is_bri()) {
                my $use_bristuff = 0;
                my $cfg_hardhdlc = $gconfig->{'bri_hardhdlc'};
-               my $xpd = $span->xpd();
+               my $xpd = Dahdi::Xpp::xpd_of_span($span);
                if(!defined($cfg_hardhdlc) || $cfg_hardhdlc =~ /AUTO/i) {
                        # Autodetect
                        if(defined($xpd)) {