X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXChannel.pm;h=8a300d5f24dd3823827d0f080f68cc176e54f0c1;hb=b1de8d406cf0b76292d401c4b75f33fca86a822d;hp=808b4821206fb6ddc91cd3eaa1d232f8bb1a082d;hpb=2f1b948ea733e0ece1909a31987dc8f03044e851;p=spider.git

diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm
index 808b4821..8a300d5f 100644
--- a/perl/DXChannel.pm
+++ b/perl/DXChannel.pm
@@ -91,6 +91,8 @@ $count = 0;
 		  talklist => '0,Talk List,parray',
 		  cluster => '5,Cluster data',
 		  isbasic => '9,Internal Connection', 
+		  errors => '9,Errors',
+		  route => '9,Route Data',
 		 );
 
 # object destruction
@@ -366,9 +368,7 @@ sub disconnect
 {
 	my $self = shift;
 	my $user = $self->{user};
-	my $call = $self->{call};
 	
-	$self->finish;
 	$user->close() if defined $user;
 	$self->{conn}->disconnect;
 	$self->del();