X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXCluster.pm;fp=perl%2FDXCluster.pm;h=1b81065477c4c9daf5be1c55a4aa5d9e6b07570d;hb=aaf4228b14eaaaf1d8510ed9e46c373fd41092b3;hp=f87dfdfcf00550318f1e6566a8245d731a3d8d1b;hpb=3e062e2c8696ad7b1e2a8bd37c2a3c4ad8f460b6;p=spider.git

diff --git a/perl/DXCluster.pm b/perl/DXCluster.pm
index f87dfdfc..1b810654 100644
--- a/perl/DXCluster.pm
+++ b/perl/DXCluster.pm
@@ -27,7 +27,7 @@ use vars qw(%cluster %valid);
 		  call => '0,Callsign',
 		  confmode => '0,Conference Mode,yesno',
 		  here => '0,Here?,yesno',
-		  dxchan => '5,Channel Call',
+		  dxchancall => '5,Channel Call',
 		  pcversion => '5,Node Version',
 		  list => '5,User List,DXCluster::dolist',
 		  users => '0,No of Users',
@@ -41,7 +41,7 @@ sub alloc
 	$self->{call} = $call;
 	$self->{confmode} = $confmode;
 	$self->{here} = $here;
-	$self->{dxchan} = $dxchan->call;
+	$self->{dxchancall} = $dxchan->call;
 
 	$cluster{$call} = bless $self, $pkg;
 	return $self;
@@ -167,11 +167,11 @@ sub dxchan
 	my $dxchan = shift;
 
 	if ($dxchan) {
-		$self->{dxchan} = $dxchan->call;
+		$self->{dxchancall} = $dxchan->call;
 	} else {
-		$dxchan = DXChannel->get($self->{dxchan});
+		$dxchan = DXChannel->get($self->{dxchancall});
 		unless ($dxchan) {
-			my $dxcall = $self->{dxchan};
+			my $dxcall = $self->{dxchancall};
 			my $call = $self->{call};
 			dbg('err', "parent dxchan $dxcall has disappeared from $call" );
 		}