X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=ab6673247fcf04c899d1756eb24766493fce7641;hb=1d33367ca97e5283c58c9834b24ea825cb633b97;hp=a811cd2779ba7b1174ebbd58c316a28482a5c10a;hpb=a9bc2c5a87691ca5bed6e408c5908695bd65387a;p=spider.git

diff --git a/perl/cluster.pl b/perl/cluster.pl
index a811cd27..ab667324 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -237,7 +237,7 @@ sub new_channel
 	$conn->conns($call) if $conn->isa('IntMsg');
 
 	# set callbacks
-	$conn->set_error(sub {my $err = shift; error_handler($dxchan, $err)});
+	$conn->set_error(sub {my $err = shift; LogDbg('DXCommand', "Comms error '$err' received for call $dxchan->{call}"); $dxchan->disconnect(1);});
 	$conn->set_on_eof(sub {$dxchan->disconnect});
 	$conn->set_rproc(sub {my ($conn,$msg) = @_; $dxchan->rec($msg);});
 	$dxchan->rec($msg);