X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=perl%2FDXProt.pm;h=58b5982df7848e278e598d69db784acc4b104324;hb=c6428493a82dbc2c59d92ba12d288975e2b936ba;hp=1094578e61e08429ab4df159c237c75c2720708f;hpb=ed6790555f077eb521b8805113155a2ff99cc47e;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 1094578e..58b5982d 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -365,6 +365,7 @@ sub normal
 		$hops--;
 		return if $hops < 0;
 		$line =~ s/\^H(\d+)(\^?\~?)?$/sprintf('^H%d%s', $hops, $trail)/e;
+		$field[-1] = "H$hops";
 	}
 
 	# send it out for processing
@@ -1012,7 +1013,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
@@ -1145,7 +1146,7 @@ sub broadcast_route_pc9x
 		$line = &$generate(@_);
 	} 
 
-	$line =~ /\^H(\d+)\^$/;
+	$line =~ /\^H(\d+)\^\~?$/;
 	unless ($1 > 0 && $self->{isolate}) {
 		foreach $dxchan (@dxchan) {
 			next if $dxchan == $self;