From: minima <minima>
Date: Mon, 1 Jan 2007 16:21:37 +0000 (+0000)
Subject: fix c=carsh
X-Git-Tag: 1.54~83
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=e8c9de4454a23bab71b5a06d2e0059877f02413d;p=spider.git

fix c=carsh
---

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 1094578e..2ff2c8e5 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -1012,7 +1012,7 @@ sub disconnect
 	# broadcast to all other nodes that all the nodes connected to via me are gone
 	unless ($pc39flag && $pc39flag == 2)  {
 		$self->route_pc21($main::mycall, undef, @rout) if @rout;
-		$self->route_pc92d($main::mycall, undef, $node);
+		$self->route_pc92d($main::mycall, undef, $node) if $node;
 	}
 
 	# remove outstanding pings
diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index 045204db..802b9914 100644
--- a/perl/DXProtHandle.pm
+++ b/perl/DXProtHandle.pm
@@ -1259,7 +1259,7 @@ sub _encode_pc92_call
 #		if ($ref->version || $ref->build) {
 		if ($ref->version) {
 			my $version = $ref->version || 1.0;
-			$version =  $version * 100 + 5300 if $version > 50;
+			$version =  $version * 100 + 5300 if $version < 50;
 			$extra .= ":" . $version;
 #			$extra .= (":" . ($ref->build ? $ref->build : '')) if $ref->build;
 		}