From e8c9de4454a23bab71b5a06d2e0059877f02413d Mon Sep 17 00:00:00 2001 From: minima Date: Mon, 1 Jan 2007 16:21:37 +0000 Subject: [PATCH 1/1] fix c=carsh --- perl/DXProt.pm | 2 +- perl/DXProtHandle.pm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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; } -- 2.43.0