X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProtout.pm;h=1ebb29bc8ceb7d356c7ac2d7309c2d4ad16d6a7b;hb=b1de8d406cf0b76292d401c4b75f33fca86a822d;hp=6894ac7875b6c001a6ff9af56a9338a1a6851c15;hpb=c2c7c24afb2bd2126da043c45bc35ddbf5c327ac;p=spider.git

diff --git a/perl/DXProtout.pm b/perl/DXProtout.pm
index 6894ac78..1ebb29bc 100644
--- a/perl/DXProtout.pm
+++ b/perl/DXProtout.pm
@@ -80,7 +80,7 @@ sub pc16
 
 	for ($i = 0; @_; ) {
 		my $str = "PC16^$self->{call}";
-		for ( ; @_ && $i < $DXProt::pc16_max_users; $i++) {
+		for ( ; @_ && length $str < 200; $i++) {
 			my $ref = shift;
 			$str .= sprintf "^%s %s %d", $ref->call, $ref->confmode ? '*' : '-', $ref->here;
 		}
@@ -117,9 +117,7 @@ sub pc19
 
 	for ($i = 0; @_; ) {
 		my $str = "PC19";
-		my $i;
-    
-		for (; @_ && $i < $DXProt::pc19_max_nodes; $i++) {
+		for (; @_ && length $str < 200; $i++) {
 			my $ref = shift;
 			my $here = $ref->{here} ? '1' : '0';
 			my $confmode = $ref->{confmode} ? '1' : '0';