X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=8f46826a60c9ee93498320e2cb1e31a9769255ab;hb=5a06cd7853e8bff86a0f17854c0791bb3f85c395;hp=b0fdd2d9114e49f9338e9a18a999b56ccf4a6ae8;hpb=d53c6bd649c5e36ca2b7a780ebbce657f90667fd;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index b0fdd2d9..8f46826a 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -1372,7 +1372,13 @@ sub handle_37
 	my $pcno = shift;
 	my $line = shift;
 	my $origin = shift;
-	DXDb::process($self, $line);
+	if ($_[1] eq $main::mycall) {
+		no strict 'refs';
+		my $sub = "DXDb::handle_$pcno";
+		&$sub($self, @_);
+	} else {
+		$self->route($_[1], $line) unless $self->is_clx;
+	}
 }
 
 # node connected list from neighbour