fix MAJOR bug in the disconnect code introduced by the NP work

[spider.git] / perl / QXProt.pm

diff --git a/perl/QXProt.pm b/perl/QXProt.pm
index bce0b56770f8daa5401401e8aa8f73a9f323fc23..f3a69128d4737fcb122638e3543478368370b5a8 100644 (file)
--- 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());