X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FQXProt.pm;h=f3a69128d4737fcb122638e3543478368370b5a8;hb=db3280504f804e18d5c57b9e14b12d7abe38e3a3;hp=bce0b56770f8daa5401401e8aa8f73a9f323fc23;hpb=50f6466ca2dff82ca470a4abe327d741cffef61a;p=spider.git

diff --git a/perl/QXProt.pm b/perl/QXProt.pm
index bce0b567..f3a69128 100644
--- a/perl/QXProt.pm
+++ b/perl/QXProt.pm
@@ -84,6 +84,12 @@ sub process
 	}
 }
 
+sub disconnect
+{
+	my $self = shift;
+	$self->DXProt::disconnect(@_);
+}
+
 sub sendallnodes
 {
 	my $nodes = join(',', map {sprintf("%s:%d", $_->{call}, int($_->{pingave} * $_->{metric}))} DXChannel::get_all_nodes());