X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProtout.pm;h=ee761cdc83a99dc12896d841f2bc70025c0ac961;hb=8dfb46f118199934c742e1fcaee0ceb8084a6998;hp=887e0dcb369a084a2fc92e5417784e5658ed7540;hpb=9e2fbafcfdab1ee45e581524311f1a97ac41f6ad;p=spider.git

diff --git a/perl/DXProtout.pm b/perl/DXProtout.pm
index 887e0dcb..ee761cdc 100644
--- a/perl/DXProtout.pm
+++ b/perl/DXProtout.pm
@@ -305,8 +305,8 @@ sub pc49
 # periodic update of users, plus keep link alive device (always H99)
 sub pc50
 {
-	my $me = DXCluster->get_exact($main::mycall);
-	my $n = $me->users ? $me->users : '0';
+	my $n = shift;
+	$n = 0 unless $n >= 0;
 	return "PC50^$main::mycall^$n^H99^";
 }