fix c=carsh

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 1094578e61e08429ab4df159c237c75c2720708f..2ff2c8e59ae3dc44fd05892bccdcee24972ed90f 100644 (file)
--- 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 045204db1698ba349f7d7a065d5bb8946ffd797d..802b9914d5019d961fbc25fd536de237f1c87505 100644 (file)
--- 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;
                }