From 6189813aa889a49153b2c7083a25b755952d12df Mon Sep 17 00:00:00 2001
From: Tzafrir Cohen <tzafrir.cohen@xorcom.com>
Date: Tue, 8 Feb 2011 14:42:23 +0000
Subject: [PATCH] dahdi-perl: more left-over $span->xpd

Replace the remaining $span->xpd with xpd_of_span().

Following up on r9648.

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


git-svn-id: http://svn.astersk.org/svn/dahdi/tools/branches/2.4@9744 17933a7a-c749-41c5-a318-cba88f637d49
---
 xpp/perl_modules/Dahdi/Chans.pm             | 4 ++--
 xpp/perl_modules/Dahdi/Config/Gen/System.pm | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/xpp/perl_modules/Dahdi/Chans.pm b/xpp/perl_modules/Dahdi/Chans.pm
index a869ae4..e045c7d 100644
--- a/xpp/perl_modules/Dahdi/Chans.pm
+++ b/xpp/perl_modules/Dahdi/Chans.pm
@@ -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;
 
diff --git a/xpp/perl_modules/Dahdi/Config/Gen/System.pm b/xpp/perl_modules/Dahdi/Config/Gen/System.pm
index 94fbf2b..cb7b14b 100644
--- a/xpp/perl_modules/Dahdi/Config/Gen/System.pm
+++ b/xpp/perl_modules/Dahdi/Config/Gen/System.pm
@@ -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)) {