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

diff --git a/perl/DXProtout.pm b/perl/DXProtout.pm
index 887e0dcb..da2d5fff 100644
--- a/perl/DXProtout.pm
+++ b/perl/DXProtout.pm
@@ -15,7 +15,7 @@ package DXProt;
 
 use DXUtil;
 use DXM;
-use Carp;
+use DXDebug;
 
 use strict;
 
@@ -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^";
 }