X-Git-Url: http://scm.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=perl%2FDXChannel.pm;h=7602283fc367b0d8784f80e0ec8dc4ce56bcfa71;hb=2080db6b0892798e5f321098f59c1216f21a331d;hp=808b4821206fb6ddc91cd3eaa1d232f8bb1a082d;hpb=2f1b948ea733e0ece1909a31987dc8f03044e851;p=spider.git

diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm
index 808b4821..7602283f 100644
--- a/perl/DXChannel.pm
+++ b/perl/DXChannel.pm
@@ -91,6 +91,7 @@ $count = 0;
 		  talklist => '0,Talk List,parray',
 		  cluster => '5,Cluster data',
 		  isbasic => '9,Internal Connection', 
+		  errors => '9,Errors',
 		 );
 
 # object destruction
@@ -366,9 +367,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();