X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FQXProt.pm;h=f3a69128d4737fcb122638e3543478368370b5a8;hb=75abae88c65a19102d4a633a273a71750aa97728;hp=bce0b56770f8daa5401401e8aa8f73a9f323fc23;hpb=ace0278fbe041182bec5fc536ade55647145994b;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());