X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=61e72661270c41c552c61ae54027accb7879b890;hb=a8b7d0b77fd3cefb1943ce7548f8c803aa83ff39;hp=710a3dbf84129a4b0405fc92597c8ff2cd7e2161;hpb=638d9efe6fe3d3c4eec08d5e985fce4dd760423b;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 710a3dbf..61e72661 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -657,7 +657,7 @@ sub normal
 		}
 		
 		if ($pcno == 39) {		# incoming disconnect
-			$self->disconnect();
+			$self->disconnect(1);
 			return;
 		}
 		
@@ -776,7 +776,7 @@ sub process
 		
 		# send a pc50 out on this channel
 		if ($t >= $dxchan->pc50_t + $DXProt::pc50_interval) {
-			$dxchan->send(pc50());
+			$dxchan->send(pc50(scalar DXChannel::get_all_users));
 			$dxchan->pc50_t($t);
 		}