From be6a656b38fbae3c80767894119106a7bed16af7 Mon Sep 17 00:00:00 2001
From: Tzafrir Cohen <tzafrir.cohen@xorcom.com>
Date: Thu, 13 Aug 2009 21:40:01 +0000
Subject: dahdi-perl: don't re-append '@' when testing the Astribank connector
 string

xpp rev: 7291


git-svn-id: http://svn.asterisk.org/svn/dahdi/tools/trunk@7000 a0bf4364-ded3-4de4-8d8a-66a801d63aff
---
 xpp/perl_modules/Dahdi/Xpp.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/xpp/perl_modules/Dahdi/Xpp.pm b/xpp/perl_modules/Dahdi/Xpp.pm
index f9e62a5..7ac574b 100644
--- a/xpp/perl_modules/Dahdi/Xpp.pm
+++ b/xpp/perl_modules/Dahdi/Xpp.pm
@@ -206,10 +206,9 @@ sub add_xpporder(@) {
 	# Overrides from config file
 	foreach my $xbus (@xbuses) {
 		my $label = $xbus->label;
-		my $connector = '@' . $xbus->connector;
 		my $val;
 		$val = $order{$label};
-		$val = $order{$connector} unless defined $val;
+		$val = $order{$xbus->connector} unless defined $val;
 		$xbus->{XPPORDER} = $val if defined $val;
 	}
 }
-- 
cgit v1.2.3