X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=06dab32b2456a291d0b558e0b8006ec08c043704;hb=0b0810956c3a067e27395105c1581dbe8523a9e1;hp=554ba4ee7ae0d82f5ef9c1a18dc1a7846c976f0e;hpb=f62f7f8ba8aa59de4f4ed8a19f0300b6804a0009;p=spider.git

diff --git a/perl/cluster.pl b/perl/cluster.pl
index 554ba4ee..06dab32b 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -102,7 +102,7 @@ sub error_handler
 {
 	my $dxchan = shift;
 	$dxchan->{conn}->set_error(undef) if exists $dxchan->{conn};
-	$dxchan->disconnect;
+	$dxchan->disconnect(1);
 }
 
 # handle incoming messages